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

Question

Информатика

Зинуша

18 сентября, 21:17

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

+1

Ответы (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)