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

Паскаль

Question

Информатика

Агапия

7 апреля, 12:23

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

Паскаль

+3

Ответы (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. Дана непустая последовательность целых чисел, оканчивающаяся нулем. Найти сумму всех чисел последовательности.

Паскаль