Написать программу, в которой осуществляется ввод - вопрос №1541153 от 565765g 24.01.2023 03:21

Question

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

565765g · Answer

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