Даны целые числа а1, а2, а3. получить целочисленный массив в[1..3, 1..3], для которого b[i, j]=ai-3aj.

program painnagato; uses crt; const n=3; var i,j: integer;   a: array[1..n] of integer;   b: array[1..n,1..n] of integer; begin  writeln('*** alphaues is ***');   writeln('***                  ok                        ***');   for i: =1 to n do      begin          write('введите ',i,'-е число ');           readln(a[i]);       end;   writeln('результат: ');   for i: =1 to n do      begin          for j: =1 to n do              begin                  b[i,j]: =a[i]-3*a[j];                   write(b[i,j]: 5);               end;           writeln;       end; end.

const n=3; var i,j: integer; a: array[1..n] of integer; b: array[1..n,1..n] of integer; beginfor i: =1 to n do readln(a[i]); for i: =1 to n do begin for j: =1 to n do begin b[i,j]: =a[i]-3*a[j]; write(b[i,j]: 4); end; writeln; end;

end.

х = log₂ n;

х = log₂ 12 бит.

var

d1,d2,d3,d4: string;

begin

randomize;

readln(d1);

readln(d2);

readln(d3);

readln(d4);

case random(4) of

0: writeln(d1,d2,d3);

1: writeln(d1,d2,d4);

2: writeln(d2,d3,d4);

3: writeln(d1,d3,d4);

end;

end.