Var
n, i, a, s: integer;
begin
s := 0;
readln(n);
for i := 1 to n do
begin
readln(a);
if a mod 6 = 0 then
s := s + a;
end;
writeln(s);
end.
1)нет 2)хз 3)да 4)да 5)нет 6)да 7)нет 8)да 9)1000 10)да 11)нет 12)да 13)да 14)хз 15)нет 16)хз 17)хз
Высказывания это 1 4 5 8 10 11 12 14 15 17
3124
............................................
К электросети
К локальной сети
К интернет
К монитору
К станку
К машине
и т.п.
Dim b(45)
for i=1 to 45
print "b(";i;")= ";
input b(i)
next i
for i=1 to 45
if b(i)=3.5 then
s=s+1
end if
next i
print "kolichestvo: "; s