Найти сумму чисел. Числа ввести с клавиатуры. Написать программу

Question

Информатика

Фекуса

29 июня, 21:18

Найти сумму чисел. Числа ввести с клавиатуры. Написать программу

+2

Ответы (1)

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

Ульяныч · Answer 1

{программа в паскале}

{находит сумму введенных чисел, конец последовательности - 0}

var n, x: integer;

begin

n:=0;

repeat

readln (x) ;

inc (n, x) ;

until x=0;

writeln ('сумма равна ', n) ;

end.