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

Паскаль

Question

Информатика

Панюля

7 марта, 11:18

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

Паскаль

+1

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

Паскаль