Решите задачу. С програмой и с блок схемой. Дана последовательность чисел, найти…

Question

64

Решите задачу. С програмой и с блок схемой. Дана последовательность чисел, найти сумму положительных чисел пока не будет введен ноль.

в избранное ссылка

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

baide · Accepted Answer

57

baide

24 февраля 2024

var a,s: real; begin s: =0; repeat readln (a); if a>0 then s: =s+a; until a=0; end. Вот программа

комментировать

в избранное ссылка отблагодарить