Составить программу для данного условия: Вычисление суммы только положительных чисел из последовательно введенных чисел (остановить обработку при 100.0). В Паскале

Question

Информатика

Евпраксия

2 декабря, 04:29

Составить программу для данного условия: Вычисление суммы только положительных чисел из последовательно введенных чисел (остановить обработку при 100.0). В Паскале

+5

Ответы (2)

Знаете ответ?

Витася · Answer 1

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.

Пример:

45

-84

12

30

-30

53

s = 140.0

Митюха · Answer 2

Вычисление суммы только положительных чисел из последовательно введенных чисел (остановить обработку при 100.0)