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

Question

Татуля

20 мая, 17:49

+3

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