(На языке программирования)С клавиатуры вводятся числа,0-конец ввода,найти сумму положительных из них?
(На языке программирования)С клавиатуры вводятся числа,0-конец ввода,найти сумму положительных из них?
Ответ(ы) на вопрос:
Гость
Var A:integer;
S:real;
Begin
Repeat
Read(A);
if A>0 then S:=S+A;
Until A=0;
WriteLn('S = ',S)
End.
Не нашли ответ?
Похожие вопросы