Среди чисел 1, 4, 9, 16, 25 ... найти первое число большее n.
Среди чисел 1, 4, 9, 16, 25 ... найти первое число большее n.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы