Нефедьев
6 год назад
Среди чисел 1, 4, 9, 25...найти первое число, большее n
ОТВЕТЫ
Мочутковский
Jul 8, 2019
Var n,m:integer;
begin
write(n = );
readln(n);
m:=1;
while m*mlt;=n do m:=m+1;
writeln(m = ,m*m);
end.
Пример:
n = 70
m = 81
begin
write(n = );
readln(n);
m:=1;
while m*mlt;=n do m:=m+1;
writeln(m = ,m*m);
end.
Пример:
n = 70
m = 81
266
Смежные вопросы:
