аписать на Паскале программу с использованием оператора Repeat..until, которая запрашивает с клавиатуры набор произвольных целых положительных чисел и ищет их сумму. Признаком окончания последовательности чисел является «0».
Ответы на вопрос
Ответил dimanicich
0
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.
Ответил dimanicich
0
ссылка на читаемый код https://pastebin.com/PV0aw03P
Новые вопросы
Информатика,
2 года назад
Информатика,
2 года назад
Алгебра,
8 лет назад
Математика,
9 лет назад
Литература,
9 лет назад