Составить программу для данного условия: Вычисление суммы только положительных чисел из последовательно введенных чисел ( остановить обработку при 100.0) . В Паскале
Answers & Comments
Narberall
Var a,s:real; begin s:=0; repeat readln(a); if a>0 then s:=s+a; until s>=100; writeln('s = ',s:5:1); end.
Answers & Comments
begin
s:=0;
repeat
readln(a);
if a>0 then s:=s+a;
until s>=100;
writeln('s = ',s:5:1);
end.
Пример:
45
-84
12
30
-30
53
s = 140.0
Verified answer
Вычисление суммы только положительных чисел из последовательно введенных чисел ( остановить обработку при 100.0)