45 раз
Он будет прибавлять единицу к n 45 раз.
Var p,h: Real;
begin
writeln('Введите p,h: ');
readln(p,h);
writeln('P=p*g*h=',p*10*h);
end.
1) (3072 кб + 3072 кб) / 2 кб= 3072 кб
2) (7 байт+384 байт)+(2 байт+2520 байт)=645байт
4) (1 байт*1 байт*1 байт*1 байт) / 1 байт=1 байт
Var
n:integer;
begin
readln(n);
if n > 10 then writeln(n, ' > ', 10);
if n < 10 then writeln(n, ' < ', 10);
if n = 10 then writeln(n, ' = ', 10);
<span>end.</span>
Если 2 цифры, значит оно двузначное