Аписать на Паскале программу с использованием оператора Repeat ... until, которая запрашивает с клавиатуры набор произвольных целых положительных чисел и ищет их сумму. Признаком окончания последовательности чисел является "0".

Question

Информатика

Дементий

14 мая, 22:30

Аписать на Паскале программу с использованием оператора Repeat ... until, которая запрашивает с клавиатуры набор произвольных целых положительных чисел и ищет их сумму. Признаком окончания последовательности чисел является "0".

+5

Ответы (1)

Знаете ответ на вопрос?

Назар · Answer 1

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.