Free pascal ! дана целочисленная последовательность. признаком завершения последовательности является ноль, записанный после последнего элемента последовательности. вычислить сумму каждого третьего элемента, начиная с первого.
8Lisandra8
2
30.09.2019 01:01
2
Другие вопросы по теме Информатика
myyllaas
18.03.2021 17:51
fkdsf234
16.06.2019 12:00
valya83
16.06.2019 12:00
Aieks01
05.06.2019 00:40
vladvoroxov
05.06.2019 00:40
fac7
05.06.2019 00:40
СтаниславСуглобов
05.06.2019 00:40
даша3646
05.06.2019 00:40
paolo99
04.06.2019 23:31
Популярные вопросы
- Найти предложения из художественной с наречием вокруг и производным предлогом...
2 - За 3 класс. решите уравнение: 648: z=67...
1 - Какую эволюционную роль сыграли колониальные организмы?...
3 - Основными являются оба оксида, формулы которых: а) no и feo б)al₂o₃ и k₂o...
2 - Реши уравнения х: 7=275+425 90: у=15•2 120: х=400-340 х: 8=5•16...
2 - Напиши письмо-заявку,но помни,что пишет-хвастун.(от имени попугая рикки)....
2 - Определить молекулярную формулу углеводорода, если массовая доля углерода...
2 - Решите уравнение числитель x+1 + x+2 + x+3 = 0 знаменатель х-1 x+1 1-x в...
3 - Дима живёт на 2 этаже.никита в том же подъезде,что и дима,но он проходит...
1 - Автомобиль выехал из пункта а со скоростью 60 км в час. через 2 часа в след...
1
var a, sum, Count: integer;
begin
sum := 0;
Count := 0;
repeat
Read(a);
if Count mod 3 = 0 then sum += a;
Count += 1;
until a = 0;
Write(sum)
end.