Написать программу, в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор пока не будет введён ноль) и подсчёт суммы введённых положительных чисел. используйте оператор repeat
MariyKot
2
19.05.2019 15:35
0
Другие вопросы по теме Информатика
vlad1419
19.10.2020 00:22
morginen
26.05.2019 04:20
andreyfirst2001
26.05.2019 04:20
SofiyaSofia
21.01.2021 13:00
abuovalmaz69
09.09.2020 23:58
bertain
20.09.2021 20:55
Вичка11111111
08.08.2019 12:20
boss23242
08.08.2019 12:20
linolino
08.08.2019 12:20
valeryanka97
08.08.2019 12:20
Популярные вопросы
- Лексический разбор слов сонные и перламутром, подскажите , заранее...
3 - +50 написать аргумент из для сочинения на тему влияние телевидения...
1 - 40 в магазине электронные игрушки. из каждой 1000 игрушек 5...
2 - Скакого момента начинается рассказ о василии тёркине?...
2 - Каким является треугольник ,если два его угла равны 30 градусов...
1 - Постройки график уравнения а) 2x-y=6 полностью решения уравнения...
3 - Напишіть вираз да і 1)23+29=52 2)464: 54=9 3)23*9=207 4)29*9=261...
3 - Написать сочинение на тему мой маленький друг...
1 - Усаду росли яблуні і груші і сливи.слив було 5дерев,а груш на...
1 - Между какими целыми числами находятся числа : а)-75; б)-1...
2
var a,s:integer;
BEGIN
s:=0;
repeat
read(a);
if (a>0) then
s:=s+a;
until (a=0);
writeln(s);
end.