Написать программу, в которой осуществляется - вопрос №1542055 от lololololololololo11 15.08.2022 21:00

Question

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

lololololololololo11 · Answer

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