Написать программу, в которой осуществляется ввод - вопрос №1541378 от slavabancov 02.08.2020 00:25

Question

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

slavabancov · Answer

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