посреди чисел 1, 4, 9, 16, 25 ... отыскать первое число

Среди чисел 1, 4, 9, 16, 25 ... отыскать 1-ое число большее n.

Задать свой вопрос
1 ответ
Var
n, p, i: integer;
begin
readln(n);
i:=1;
p:=3;
while true do
 if ilt;=n then
 begin
 i:=i+p;
 p:=p+2;
 end
 else
 begin
 write(i);
 exit;
 end;
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт