Question

Найти абсолютное значение разности количества четных и нечетных цифр в семеричной записи числа n, где n вводит пользователь (Pascal)

Answer 1

Ответ:

const

 k = 10;

 q = 12;

 

var

 j, i, n, m: integer;

 a: array[1..k, 1..q] of integer;

 

begin

 n := 0;

 m := 0;

 randomize;

 for i := 1 to k do

 begin

   for j := 1 to q do

   begin

     a[i, j] := -k div 2 + random(q);

     write(a[i, j]:6);

     if odd(a[i, j]) then  

       inc(m)

     else

       inc(n);

   end;

   writeln;

 end;

 writeln('Четных : ', n, ',  нечетных : ', m);

end.