Значение арифметического выражения: 922 + 366 – 12 записали в системе счисления с основанием 3. Сколько цифр «2» содержится в этой записи?

1

архитектор - для моделирования чертежей на компьютере !

врач - картатека всех больниц хроницца   в компьютере 

бизнесмен - зновать последнии новости в интернети с компьютера

бухгалтер - расчёты с компьютера

композитор - с компьютера и специальных программ может прослушивать свои произведения и доробатовать их

секретарь - записывает в компьютер все важные зделки

писатель - пишет на компьютере свои произведения ( удобно   если что то не понравилось удалил и переделал ! и не надо портить бумагу 

художник - берёт шаблоны с компьютера и перересовывает их на холст

модельер - моделирует платья на компьютере

2 

програмист - пишет программы , а пользователь пользуется программами написаноми программистами !  

program xxx;

      var i : integer;

                a : array[1..15] of real;                   n : real;   begin    randomize;     for i: =1 to 15 do        a[i]: =random(20)-20;  

    writeln('исходный массив а: ');

    for i: =1 to 15 do

          write(a[i]);

    n: =a[1];

    a[1]: =a[15];

    a[15]: =n;

    writeln('полученный массив а: ');

    for i: =1 to 15 do

          write(a[i]);

    readln

end.

program zadacha2;

  uses crt;

  var i,n,a: integer;

            b,y,c,l: real;

begin

clrscr;

readln(n);

  a: =1;

  b: =2;

  c: =5;

  for i: =1 to n do                                                                                          

                                                                                                  begin  

if a mod 2 = 0 then

l: =a+b/c

else          

l: =a-b/c;

a: =a+1;

b: =b+2;

c: =c+5;

y: =y+l;

                                                                                                    end;

writeln(y: 2: 2);

readkey;

  end.

первую по подробней расспишите

var i, j, min, min_i, min_j: integer; a: array[1..5, 1..5] of integer;

begin for i : = 1 to 5 do begin for j : = 1 to 5 do begin a[i, j] : = random(100) + 1; write(a[i, j]: 4); end; writeln; end; min : = 999; for i : = 1 to 5 do for j : = 1 to 5 do if min > a[i, j] then begin min : = a[i, j]; min_i : = i; min_j : = j; end; a[min_i, min_j] : = 0; writeln('массив с замененным минимальным элементом'); for i : = 1 to 5 do begin for j : = 1 to 5 do write(a[i, j]: 4); writeln; end; end.