Написать программу поиска суммы положительных чисел, вводимых с клавиатуры. Как

только будет введено отрицательное число, суммирование прекратить.

Question

Информатика

Федюка

18 февраля, 11:48

Написать программу поиска суммы положительных чисел, вводимых с клавиатуры. Как

только будет введено отрицательное число, суммирование прекратить.

+4

Ответы (1)

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

Стася · Answer 1

Var

A, S: real;

Begin

S : = 0;

Write ('Введите последовательность чисел: ') ;

Read (A) ;

While A > = 0 do

Begin

S : = S + A;

Read (A) ;

End;

WriteLn ('S = ', S) ;

End.

Написать программу поиска суммы положительных чисел, вводимых с клавиатуры. Кактолько будет введено отрицательное число, суммирование прекратить.

Написать программу поиска суммы положительных чисел, вводимых с клавиатуры. Как

только будет введено отрицательное число, суммирование прекратить.