Question

Помогите пожалуйста,напечатать программу. Среди чисел 1,4,9,16,25...найти первое большее заданного N. (язык программирования C++)

Answer 1

// Среди чисел 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.