Ответы на вопрос:
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.
Популярно: Информатика
-
Диана09098009.09.2022 06:15
-
Lena573748822.04.2021 06:54
-
тусикк19.11.2021 20:15
-
Touka133706.04.2022 13:46
-
maksnemolyaev12.02.2020 21:36
-
msLolka02.04.2021 19:21
-
yestarday2315.12.2022 20:42
-
Света123456788022.04.2023 08:10
-
1995timoha3030.07.2022 10:12
-
polinasenotova24.06.2021 12:24