Среди 20 вводимых чисел выберите все кратные 2 или 5 и посчитайте их сумму
Юлианана228
2
23.08.2019 08:30
1
Другие вопросы по теме Информатика
snoopy201
19.05.2020 18:28
Plushkina69
19.05.2020 18:28
avalak99
05.07.2019 18:20
кукипро
02.08.2019 11:00
doagetonya
02.08.2019 11:00
120954943921
04.11.2021 18:49
petiteOie
13.08.2019 00:20
sanya811
13.08.2019 00:20
ШерлокХолмс11111
13.08.2019 00:20
Популярные вопросы
- Визначте концентрацію йонів натрію в розчині, що містить 0,1 моль /л...
1 - Выполните сложение отрицательных чисел. 1)-56+(44)= 2)-384,56+(-126,34)=...
1 - Можно ли, основываясь первых двух книгах, сказать, что Есенин с самого...
1 - Поїзд, маса якого дорівнює 2000т, що рухався зі швидкістю 40км/год, зупинився....
3 - Praca domowa strona 101 ćw 4 виписати іменники і вказати рід...
2 - Составьте 3 преложения со словами в течении, насчёт и несмотря, что бы...
2 - Сколько километров пути осталось пройти пешком путешественику на третьем...
3 - Закодировать цитату «Догонять тех, кто впереди, а не ждать тех, кто позади»...
3 - ОТ 1.) Решите уравнение: 2/x = 12.) Бригада должна была по плану за месяц...
2 - Решите задания по математике...
1
var i,a,sum: integer;
begin
sum:=0;
for i:=1 to 20 do
begin
readln(a);
if (a mod 2=0) or (a mod 5=0) then
sum:=sum+a;
end;
writeln(sum);
end.