Вопрос по инфарматике переведите в двоичную систему десятичное число 35

Question

Информатика: Вопрос по инфарматике переведите в двоичную систему десятичное число 35

тикон3 · Accepted Answer

Const
n=5;
var
a:array[1..5,1..5] of integer;
i,j,k:integer;
begin
Randomize;
Writeln('Исходный массив');
k:=0;
for i:=1 to n do
    begin
    for j:=1 to n do
      begin
      a[i,j]:=Random(100)+1;
      Write(a[i,j]:4);
      if a[i,j] mod 5 = 0 then k:=k+1
      end;
    Writeln
    end;
Writeln('Количество элементов, кратных 5, равно ',k)
end.

Контрольный пример
Исходный массив
82 100   2 68 88
31 75 21 18   7
100 65 23 80 27
   1 88 49 94 93
50 87 77 67 80
Количество элементов, кратных 5, равно 7

MOGZ ответил