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