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

0 интересует 0 не интересует
149 просмотров

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


спросил от (22 баллов) в категории Информатика
оставил комментарий от Начинающий (482 баллов)
0 0

На другом языке можнл?

1 Ответ
0 интересует 0 не интересует
ответил от Супер Доцент (55.0k баллов)
 
Лучший ответ

Var
    number: integer;
    sum, product, k: integer;

begin
    repeat
        write('number = ');
        readln(number);
        sum := sum + number;
    until number = 0;
    
    writeln('S = ', sum);
end.

...