С клавиатуры поочередно вводятся целые числа. Вычислите сумму положительных чисел. Признаком конца ввода чисел является число 0.

Question

Шура

2 марта, 06:02

+2

Ответы (1)

Знаете ответ?

Ванята · Answer 1

Var

A:integer;

S:real;

Begin

S:=0;

Repeat

Read (A) ;

if A>0 then S:=S+A;

Until A=0;

Write ('S = ', S) ;

End.