Ответы на вопрос:
Var n,s: integer; begin s: =0; n: =0; while s< 1000 do begin n: =n+1; s: =s+n; end; writeln('n = ',n,' s = ',s); end. результат: n = 45 s = 1035
Популярно: Информатика
-
Sova55115.04.2021 00:41
-
ХудшийИзХудших21.03.2022 18:53
-
GreenExtreme599519.05.2021 00:27
-
Кирилл1122116.06.2020 02:57
-
maksbaduk19.05.2022 06:50
-
irashnytko17.03.2022 04:59
-
grht111.06.2021 20:30
-
alenalavkav725.03.2022 20:39
-
Каркушааа03.01.2022 15:53
-
Gromova323225.06.2020 14:57