Напишите программу, которая в последовательности натуралных чисел определяет сумму чисел, кратных 7. Программа получает на вход кол-во чисел в последовательности, а затем сами числа. В послледовательности всегда имеется число, кратное 7. Программа должна вывести одно число - сумму чисел , кратных 7.

var n, i, sum, k:Integer;

begin

sum:=0;

readln(n);

for i := 1 to n do

begin

 readln(k);

 if (k mod 7 = 0)then begin

  sum:=sum+k;

 end;

end;  

writeln(sum);

end.

Сначала переведем 40 в двоичную для этого будем делить пока не останется единица  

 40 /2

-40 ---20/2

   0     -20---10/2

             0    -10---5/2

                       0   -4---2/2

                              1   -2---1

                                     0

 

После этого с правой стороны получаем число по остаткам от деления

Получилось число  101000 в двоичной системе 

 

52 так легко не перервести, поэтому сначала переведем в десятичную,а

для этого будем умножать 

2*8(0)степени+5*2(1)степени=2+40=42(в десятичной)    

 

Теперь опять в двоичную переводим

 

 42/2

-42---21/2

   0   -20 ---10/2

           1    -10---5/2

                    0   -4---2/2

                           1   -2 ---1

                                  0

Получилось 101010

А теперь сравниваем с  ответами : подходит 3) 101000<101001<101010

 

1.а)локальная

б)глобальная

в)локальная(если компьютер дйствительно"рабочий")

г)глобальная

д)локальная

е)глобальная

2.Локальная сеть дает возможность получать совместный доступ к общим папкам, файлам, оборудованию, различным программам и т.д. в пределах одного здания, офиса или комнаты.

3.прости, не понял или нет изображения

4.вариантов очень много: кольцо,шина,звезда...(лень рисовать, но если заглянуть в любой из учебников информатики то там на теме "локальная сеть" будут эти рисунки(насколько я знаю =) ))