Дано натуральное число n . Получите наименьшее натуральное число вида m2, превосходящее n.
программа в паскле
Если я правильно понял суть задания
var n,m:inreger;
begin
readln(n);
m:=n+1;
writeln(m);
end.
Оцени ответ
Дано натуральное число n . Получите наименьшее натуральное число вида m2, превосходящее n.
программа в паскле
Если я правильно понял суть задания
var n,m:inreger;
begin
readln(n);
m:=n+1;
writeln(m);
end.