Написать программу, в которой осуществляется ввод - вопрос №1542055 от dashagor2 19.06.2020 06:51

Question

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

dashagor2 · Answer

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