Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

среди чисел 1,4,9,16,25...найти первое число,большее n. n ввести с клавиатуры

Ответ оставил Гость

program qq;
uses crt;
var i, n: integer;
begin
clrscr;
writeln (Введите число n: );
read (n);
i:=1;
while sqr(i)i:=i+1;
writeln (sqr(i));
readkey;
end.