Ответы на вопрос:
Program program1; var s, i: integer; begin s : = 0; for i : = 1 to 100 do s : = s + i; writeln(s); s : = 0; i : = 1; while i < = 100 do begin s : = s + i; i : = i + 1; end; writeln(s); s : = 0; i : = 0; repeat i : = i + 1; s : = s + 1; until i < 100; writeln(s); end.
Популярно: Информатика
-
perevalov11122221.02.2023 17:08
-
baron203201205.01.2020 22:22
-
ksun200317.08.2021 02:47
-
Fo0lHardy12.04.2023 06:40
-
DMN111107.11.2022 16:39
-
22844616.05.2022 20:07
-
Евангелина1234527.03.2023 21:12
-
маршмален26.03.2020 11:36
-
Джеси9924.08.2021 22:43
-
Моначка16.02.2022 10:49