Паскаль. написать программу которая запрашивает ряд чисел и считает их сумму. количество чисел не ограничено. при нажатии цифры "1" - ввод чисел прекращается.
131
390
Ответы на вопрос:
Var number: integer; sum: integer; begin repeat write('number = '); readln(number); sum : = sum + number; until number = 1; writeln('сумма = ', sum); end.
Популярно: Информатика
-
DFleX29.11.2021 11:01
-
dina0825409.07.2022 03:43
-
Mishka051226.07.2021 06:12
-
8алина8212.11.2021 06:10
-
silinskay18.12.2021 04:50
-
Kiri20522.02.2021 11:23
-
12Куки3505.06.2022 02:26
-
nevzorovivan20029.04.2020 16:43
-
yuryklepikov01.01.2022 11:23
-
gabbivil31.03.2023 20:10