Составить программу, которая вводит 5 чисел последовательности и находит сумму всех чисел последовательности кратных 4 и оканчивающихся на 6
asyamilos
3
12.03.2022 00:13
1
Другие вопросы по теме Информатика
vvozmisheva2
25.12.2019 08:50
Акулинна
25.12.2019 08:51
notmedont
09.06.2019 01:10
никита16l
09.06.2019 01:10
svsand
18.03.2021 13:54
ggezzzz
02.10.2019 13:50
xaverqenizadeoxg0iy
02.10.2019 13:50
davidpizhuk13456789
02.10.2019 13:50
ninaschemetowa
02.10.2019 13:50
Популярные вопросы
- Из словосочетаний образуйте сложные и сложносокращённые слова и запишете их в...
3 - Последствия попадания серной кислоты на кожу...
1 - Для юга дальнего востока характерен климат с крайне неравномерно распределенным...
1 - Комары которые кусают человека самцы или самки...
1 - Ввоспоминаниях о своей длинной и яркой жизни андрей тимофеевич так рассказывает...
3 - Заказ на 140 деталей первый рабочий выполняет на 4 часа быстрее чем второй. сколько...
2 - Синцовая гиря-свинцовое небо,воздушные массы-воздушный пирог,собачья шерсть-собачья...
1 - Напишіть оповідання про сімейну традицію або випадок на контрольній дуже треба)...
2 - Вбанке умещается 5 литров меда. из одного улья наполнили медом 3 банки, а из другого...
2 - Часова форма ді єслів малювати, зустріти...
3
var
a: array[1..5] of Integer;
i, sum: Integer;
begin
sum := 0;
for i := 1 to 5 do
Read(a[i]);
for i := 1 to 5 do
if (a[i] mod 4 = 0) and (a[i] mod 10 = 6) then
sum := sum + a[i];
WriteLn(sum)
end.