Напишите программу которая в последовательности натуральных чисел определяет сумму чисел, кратных 6. программа получает на вход количество чисел в последовательности, а затем сами числа. в последовательности всегда имеется число кратное 6. кол-во чисел не превышает 100. введённые числа не привышают 300. программа должна ввести одно число - сумму чисел кратных 6
trafimozza
1
22.05.2019 06:40
3
Другие вопросы по теме Информатика
диляра85
14.09.2019 10:00
Олька1824
22.08.2019 18:10
hhhh34
22.08.2019 18:10
anastysiaparsh
22.08.2019 18:10
мари420
22.08.2019 18:10
eryana
26.09.2019 15:30
valeri0910200
26.09.2019 15:30
marusi220
26.09.2019 15:30
vinogradka009
18.11.2020 21:08
G89
18.11.2020 21:18
Популярные вопросы
- Моторная лодка против течения реки проплыла 10 км а по течению 9 км при этом...
3 - Вариант 2.виды придаточных частей в спп.1.подчеркните грамматические основы,...
3 - выпишите из предложения бессоюзные сложные предложения. выделите части , отметьте...
3 - They re have not a great team, said their teacher зробити це речення в трьох...
1 - Оригинально поздравить чел с др по типу этого: знаешь я вообще то любила тебя...
2 - Действительные числа a,b,c таковы, что |a| |b+c|, |b| |c+a|, |c| |a+b| докажите...
1 - 2. какая из перечисленных точек принадлежит графику функции y = 2ха (0; 4);...
1 - Вмолекуле днк 20 витков. сколько молекул дезоксирибозы необходимо для осуществления...
2 - Известно, что точки a, b, c и d — вершины прямоугольника. дано: a(0; 0); b(0;...
2 - Назовите зоны корня какие функции выполняет зона роста...
2
Паскаль
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.