Аписать на паскале программу с использованием оператора repeat..until, которая запрашивает с клавиатуры набор произвольных целых положительных чисел и ищет их сумму. признаком окончания последовательности чисел является «0».
184
251
Ответы на вопрос:
Program z; var a,mplus,i: integer; masiv: array of integer; begin repeat inc(mplus); setlength(masiv,mplus); read(i); a: =a+i; until i=0; writeln(a); end.
Популярно: Информатика
-
Motiby1917.04.2022 10:33
-
olyakirnay24.02.2022 06:41
-
Lepninanastia06.12.2022 12:53
-
ксюха28021.09.2021 14:16
-
FanatikOutlast20.11.2020 10:07
-
selemenevakrist06.09.2021 21:21
-
lemon23429.10.2020 04:07
-
Fastikqq27.11.2022 00:37
-
Elika3404.10.2021 16:03
-
KimSoyu06.07.2021 20:47