составить программу вычисляющая сумму положительных чисел кратных 4 и оканчивающихся на 6 или 0 кол-во 'n'
Nastiakot1
2
08.02.2021 21:34
2
Другие вопросы по теме Информатика
mironhik1
22.03.2020 09:21
LadyWolf123456789
22.03.2020 09:21
rrrrreeeeyttttyuytpq
22.03.2020 09:24
moaariishkkaa
22.03.2020 09:25
Marshmelloo
22.03.2020 09:29
nshexovceva18
22.03.2020 09:32
куликов44443456
22.03.2020 09:51
nika0483
22.03.2020 10:15
nanakochieva72
22.03.2020 10:26
Популярные вопросы
- Сидит-зеленеет,летит поставь к глагола вопросы и определи время...
1 - 1) Почему Жилин был уверен,что выкуп за него не пришлют? 2)Что надели племинникам...
2 - (3x-5)в квадрате + 2x=5 Решите через дискременант...
1 - 20 рабочих делают 420 деталей за 3 недели.Сколько деталей сделают оставшиеся роботу...
2 - По данным рисунка найдите углы треугольника abc 134° 153°...
3 - В нагревательном элементе чайника при жении 220В сила тока 4А. Какое количество...
3 - Choose one continent. write what you know about it....
2 - 3. Соотнесите политические идеологии и характерные признаки: (56.) 1) Консерватизм...
2 - ЗА ОТВЕТ Составить 7 сложно сочинённых предложений, подчеркнуть грамматическую...
1 - Сознание по своей природе имеет общественный характер....
3
Відповідь:1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
n, i, k, m: integer;
begin
k := 0;
readln(n);
for i := 1 to n do
begin
readln(m);
if (m mod 5 = 0) and (m mod 10 = 0) then
inc(k)
end;
writeln(k);
end.