Написать программу, в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор пока не будет введён ноль) и подсчёт суммы введённых положительных чисел. Используйте оператор repeat
kazievdaniel:
Какой яп?
1234Qwerty1:
Паскаль
1234Qwerty1:
можно и через while
Ответ
0
var a,s:integer;
BEGIN
s:=0;
repeat
read(a);
if (a>0) then
s:=s+a;
until (a=0);
writeln(s);
end.