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

Question

Информатика

Рина

23 октября, 09:47

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

+2

Ответы (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.