Определите, в какую наибольшую целую положительную степень можно возвести число b, чтобы результат не превосходил заданной величины а (b < а). - Pascal(Паскаль) - Справочник юного программиста Pascal/Delphi

var a,b,i:integer;
begin
writeln('Введите A,B');
readln(a,b);
i:=0;
while b<a do
begin
inc(i);
b:=b*b;
end;
writeln('Максимальная степень: ',i);
readln;
end.

Определите, в какую наибольшую целую положительную степень можно возвести число b, чтобы результат не превосходил заданной величины а (b < а). - Pascal(Паскаль)

Похожие записи/страницы:

Leave a Comment