1. Дана непустая последовательность целых чисел, оканчивающаяся нулем. Найти сумму всех чисел последовательности.

Паскаль

Question

Информатика

Агапия

12 марта, 07:00

1. Дана непустая последовательность целых чисел, оканчивающаяся нулем. Найти сумму всех чисел последовательности.

Паскаль

+2

Ответы (1)

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

Федюня · Answer 1

Var

number: integer;

sum, product, k: integer;

begin

repeat

write ('number = ') ;

readln (number) ;

sum : = sum + number;

until number = 0;

writeln ('S = ', sum) ;

end.

1. Дана непустая последовательность целых чисел, оканчивающаяся нулем. Найти сумму всех чисел последовательности.Паскаль

1. Дана непустая последовательность целых чисел, оканчивающаяся нулем. Найти сумму всех чисел последовательности.

Паскаль