Question

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

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.