Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 6. Программа получает на вход количество чисел в последовательности, а затем сами числа. Введённые числа не превышают 300. Программа должна вывести одно число — сумму чисел, кратных 6. паскаль !
Рапиро123
2
23.03.2021 20:41
0
Другие вопросы по теме Информатика
katerinatumasjp02dx5
30.11.2020 10:45
Licona
30.11.2020 10:46
MaksandSany
30.11.2020 10:47
chapaev1981
15.08.2019 09:10
annaegorova4
13.04.2020 15:12
глеб379
13.04.2020 15:11
irinabelova200
06.04.2021 13:57
ivanovaizl
06.04.2021 13:58
Akbota0504
06.04.2021 13:59
Популярные вопросы
- Составе словосочитания гл+сущ+предлог со словами: документ,...
2 - Найти сторону квадрата площадью 144 кв см...
2 - 2. (a) определите явление а) горение спички b) испарение воды...
3 - Си если не затруднит переводcomplete jim s story with right...
3 - Кратко что мы должны делать с мелким мусором?...
1 - I)соединение с наибольшим содержанием серы 1. h₂s 2.h₂so₄ 3.so₂...
2 - Қарахан мемлекетінің ішкі саясаты айтындарш...
1 - Вклассе углубленно изучают французский и . эти два предмета...
1 - Составить предл: специалист, кадры, работник среднего звина,...
3 - Народ виручайте! література ів теми контрольних творів: 1)«...
3
ответ: var a,s,n,i:integer;
begin
s:=0;
write('kol-vo chisel:'); read(n);
if n>100 then writeln('error!');
begin
writeln('vvedite chisla');
for i:=1 to n do
begin
read(a);
if a>300 then write('error!');
if (a mod 6=0) then s:=s+a;
end;
write('summa=',s);
end;
end.
Объяснение:кажется