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

Question

Информатика

Досифея

19 января, 19:10

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

+2

Ответы (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.