Написать программу, которая выводит сумму положительных и кратных трем чисел из вводимой с клавиатуры последовательности из 47 чисел.
raha12003
1
22.08.2019 22:00
1
Другие вопросы по теме Информатика
АружанкаЛав
04.03.2021 12:38
nikdaniil04
04.03.2021 12:37
Denchik111111111111
04.03.2021 12:37
gggg115gcgc
04.07.2019 11:40
superguluagina
29.04.2020 15:28
keks661
01.09.2019 13:40
anyamaleva97
15.07.2019 14:40
KateSved
15.07.2019 14:40
сериаломанка13
23.05.2019 16:10
cooldasha11042
23.05.2019 16:10
Популярные вопросы
- Надпишість над кожним словом частину мови і підкресліть члени речення....
3 - «германия никогда не должна вести войну одновременно на два фронта...
1 - Худ.засоби по заповіт т.г.шевченка...
2 - Могут ли в настоящее время тропические болезни распространяться...
1 - Затранскрибируйте слова ищите -ударение на второе и ушах...
2 - Скласти речення по схемі: підмет,присудок,означення,додаток...
2 - Вкаком из перечисленных районов россии наименьший гидроэнергетический...
2 - Первый тип воспроизводства населения...
2 - Составьте юмористический текст со словами шоссе, шофер чопорный...
2 - Значение и результат венского конгресса...
2
var a,sum,i: integer;
begin
sum:=0;
for i:=1 to 47 do
begin
readln(a);
if (a>0) and (a mod 3=0) then sum:=sum+a;
end;
writeln(sum);
end.