// Среди чисел 1, 4, 9, 16, 25, ... найти первое число, большее n. Program cyberforum707298; var N :integer; // Данное число otvet :integer; // ответ i:integer; // счетчик в цикле begin Writeln('Введите целое число (N > 0) N='); readln(N); i:=1; While i*i <= N do inc(i);// otvet:=i*i; // вывод ответа Writeln('ответ = ',otvet) end.
Program cyberforum707298;
var
N :integer; // Данное число
otvet :integer; // ответ
i:integer; // счетчик в цикле
begin
Writeln('Введите целое число (N > 0) N=');
readln(N);
i:=1;
While i*i <= N do inc(i);//
otvet:=i*i;
// вывод ответа
Writeln('ответ = ',otvet)
end.