Дана непустая последовательность чисел оканчивающаяся нулем. найти: а) сумму всех чисел последовательности, б) кол-во всех чисел последовательности.решить через pascal abc через repeat,for или while
121
167
Ответы на вопрос:
Var a, s, n: integer; begin n: =0; s: =0; repeat readln(a); inc(n); inc(s, a); until a = 0; writeln('сумма: ', s); writeln('количество: ', n); end.
Популярно: Информатика
-
максимилиан12309816.07.2021 16:43
-
Csgopro108.11.2020 08:39
-
Dianochkach11.02.2020 22:20
-
123maladauskas25.01.2021 11:00
-
Angel908716.01.2022 20:41
-
ЛехаФомин07.09.2022 20:27
-
игорь78025.04.2022 23:31
-
Panther11114.08.2021 22:32
-
dsokaof12lisalislais13.09.2022 20:02
-
alla5001129.10.2020 10:03