Говорит декан факультета информатики Сание<span> Мамбетовна. Ты отчислена! Завтра же зайди в деканат!</span>
Да
например человек муж род
лиса жен. род
окно ср. род
белый белая белое
Ну если надо поменять единицы на сотни, то может получиться так:
var
a: integer;
begin
readln(a);
writeln((a div 10) * 10 + (a div 100));
end.
Вот пример кода:
program Znanija;
var
cena, kolvokg, dengi, sdacha, nyno :Integer;
begin
read(cena);
read(kolvokg);
read(dengi);
nyno:=cena*kolvokg;
sdacha:=dengi-nyno;
write('Надо = ');
write(nyno);
write('; сдача = ');
write(sdacha);
end.
var
x,S:Extended;
i:longint;
begin
For i:=1 to 5 do begin Read(x); S:=S+x; end;
Write(S/5);
end.