Ответы на вопрос:
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.
Популярно: Информатика
-
lebedevan18923.05.2021 07:29
-
liza7357814.06.2020 05:02
-
Алла166666628.03.2022 17:45
-
ALEXSEENKOALEX13.01.2022 23:15
-
linashilova0003.05.2021 09:29
-
letsplei121224.07.2021 11:53
-
lbogdan202.02.2022 10:44
-
ЮлияМарченкова21.08.2021 11:11
-
ПАМАГИТИИИИИИИИ11.07.2020 06:02
-
irapodumey28.01.2020 18:33