Написать программу, в которой осуществляется - вопрос №1541153 от diasj5kz 29.03.2021 13:05

Question

Информатика: Написать программу, в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор пока не будет введён ноль) и подсчёт суммы введённых положительных чисел. используйте оператор repeat

diasj5kz · Answer

var a,s:integer; BEGIN s:=0; repeat read(a); if (a 0) then s:=s+a; until (a=0); writeln(s); end....