If (x>sqr(y)) then writeln (sqrt(x)) else writeln (x-y);
Var p:real;
s,n:integer;
begin
writeln('Введите количество жителей государства(в чел)');
readln(n);
writeln('Введите площадь государства(в км^2)');
readln(s);
p:=n/s;
writeln('Плотность государства равняется ',p:0:0,' чел/км^2');
end.<span>
</span>
Var n,a,i,nn:integer;
begin
write('Количество двузначных чисел: ');
readln(n);
for i:=1 to n do begin
repeat
write('Введите ',i,' число');readln(a);
until (a>9) and (a<100);
if a mod 2 =0 then nn:=nn+1;
end;
writeln('Количество четных двухзначных = ',nn);
end.
Тестовое решение:
Введите 1 число1
Введите 1 число23
Введите 2 число44
Введите 3 число3
Введите 3 число32
Введите 4 число45
Введите 5 число56
Количество четных двухзначных = 3