Program Primer;
var sum, a: real;
begin
sum:=0;
a:=0;
repeat
sum:=sum+a;
write('Введите число');
readln(a);
until a < 0;
writeln (sum);
end.
Какое число получится, если ввести ряд чисел 6, 2, 1, 7, -11?
102
188
Ответы на вопрос:
Популярно: Другие предметы
-
bladone43908.06.2020 21:19
-
goroskopy12.02.2020 09:10
-
00998877115.12.2022 08:13
-
кио405.08.2021 07:53
-
anutka201815.12.2021 19:57
-
Меруерт99912.05.2020 00:15
-
вася78027.12.2020 06:12
-
VLAD4321120.06.2020 00:27
-
ponchikelo21.07.2020 06:30
-
beloborodov05p06igp21.05.2021 09:23