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

Question

Информатика

Эмиля

5 ноября, 00:20

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

+5

Ответы (1)

Знаешь ответ?

Калуф · Answer 1

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

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

var n, x: integer;

begin

n:=0;

repeat

readln (x);

inc (n, x);

until x=0;

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

end.