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

Question

Информатика

Филимон

28 июня, 16:42

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

+1

Ответы (1)

Знаете ответ?

Федяка · Answer 1

Var

n, p, i: integer;

begin

readln (n) ;

i:=1;

p:=3;

while true do

if i<=n then

begin

i:=i+p;

p:=p+2;

end

else

begin

write (i) ;

exit;

end;

end.