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

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

Question

Информатика

Созон

29 декабря, 18:56

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

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

+2

Ответы (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.

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

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

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