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

Question

Информатика

Евпраксия

8 июня, 02:37

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

+3

Ответы (2)

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

Митюха · Answer 1

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

Витася · Answer 2

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