Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 6. программа получает на вход количество чисел в последовательности, а затем сами числа. в последовательности всегда имеется число, кратное 6. количество чисел не превышает 100. введённые числа не превышают 300. программа должна вывести одно число — сумму чисел, кратных 6.
язык pascal
lenavinnik80
2
09.12.2019 19:28
11
Другие вопросы по теме Информатика
ekserukhova16
03.12.2020 14:03
st1rb1t
03.12.2020 14:04
lfrybkrrf
20.05.2020 14:48
AnastasiaStoyn
26.05.2019 03:20
dance7
26.05.2019 03:20
Nastyaa271
26.05.2019 03:20
shopniceLol
26.05.2019 03:20
lubivyjn
01.08.2019 13:10
лох251
11.07.2019 09:01
Популярные вопросы
- На рисунке показанны три тела , сделанные из веществ одинакового объема...
1 - Вычислите массовые доли элементов в веществ ca(cio2) 2 и mg(no3) 2 !...
1 - При яких а рівняння: 1)(a+6)x^2-8x+a=0 2)a(2a+4)x^2-(a+2)x-5a-10=0 має...
3 - Сочинение на тему тема одиночества в стихотворение лермонтова...
2 - Літак « мрія » оснащений шістьма двигунами , кожен з яких розвиває силу...
1 - Листья хвойных растений обычно покрыты толстым слоем кутикулы. с чем...
3 - 1. африка-одно из немногих мест на земле где зональность проявляется...
2 - в параллелепипеде abcda1b1c1d1 точки m и n середины ребер aa1 и cc1 соответственно....
2 - Літак « мрія » оснащений шістьма двигунами , кожен з яких розвиває силу...
2 - Нужна , завтра кр по . что означает p и t ...
3
program pr1;
var n, i, s: integer;
begin
readln(n);
s:=0;
for i:=1 to n do
if i mod 6 = 0 then
s:= s+1;
writeln(s);
end.
===== PascalABC.NET =====
begin
var n := ReadInteger;
ReadSeqInteger(n).Where(p -> p mod 6 = 0).Sum.Println
end.