Написать программу распечатывающую сумму всех чисел кратных 3 от 10 до 20
alinavolk93ozs1oc
1
21.09.2019 08:10
1
Другие вопросы по теме Информатика
zhan310304
15.03.2019 01:30
ramazanovmagomed
15.03.2019 01:30
Шпиливонка
15.03.2019 01:30
Pussyellien
15.03.2019 01:30
эдики
15.03.2019 01:40
vika12330
15.03.2019 00:58
Анастасия8383
15.03.2019 01:50
Davidovaliza
15.03.2019 00:15
Популярные вопросы
- Решите уравнениеПод корнем3- х = 2...
3 - Для праздничного оформления в школу привезли 32 красных, 38 синих...
1 - Завершить деление с остатком. Допиши числа....
2 - ответьте правильно ли я сделала? ответьте да или нет если нет то...
2 - In Britain parents can send their children to a school between the...
3 - будет ли произведение двух натуральных чисел представимых в виде...
2 - ТЕТ дляучеl2О)1. Уақытты қалай анықтайтынымызды айтыпбер.2. Қандай...
2 - Перепишіть словосполучення, розкриваючи дужки. Оселились (у, в)...
2 - Треба 10 питань та відповідей з теми давньогрецький театр До ть...
2 - на вопросы ответить про этого человека...
1
a:array[1..100] of integer;
begin
for i:=10 to 20 do
if a[i] mod 3=0 then writeln(a[i]);
end.
begin
s:=0;
for i:=10 to 20 do
if (i mod 3=0) then s:=s+i;
write(s);
end.