Среди чисел 1, 4, 9, 25...найти первое число, большее n
Среди чисел 1, 4, 9, 25...найти первое число, большее n
Гость
Ответ(ы) на вопрос:
Гостьvar n,m:integer;
begin
write('n = ');
readln(n);
m:=1;
while m*m<=n do m:=m+1;
writeln('m = ',m*m);
end.
Пример:
n = 70
m = 81
Не нашли ответ?
Похожие вопросы