С клавиатуры поочередно вводятся целые числа. Вычислите сумму положительных чисел. Признаком конца ввода чисел является число 0.
С клавиатуры поочередно вводятся целые числа. Вычислите сумму положительных чисел. Признаком конца ввода чисел является число 0.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы