Дали 6 слов, нужно оброзовать так чтобы получились слова: **буду ) итомнро , граммпора , нераск, ланпшет лвкатуираа россцепор

Процессор программа планшет клавиатура сканер монитор

Монитор программа планшет клавиатура процессор

//первая программа

 

var  x: array[1..10] of integer;   i: integer; begin  for i : = 1 to 10 do  begin      write('x[', i, '] = ');       readln(x[i]);       inc(x[i]);   end;     writeln;   writeln('result');   for i : = 1 to 10 do      write(x[i], ' ');   readln; end.

 

 

 

//вторая программа

 

var  x: array[1..10] of integer;   i: integer; begin  for i : = 1 to 10 do  begin      write('x[', i, '] = ');       readln(x[i]);       if x[i] > 0 then          x[i] : = 0;   end;   writeln;   writeln('result');   for i : = 1 to 10 do      write(x[i], ' ');   readln; end.

 

 

 

// третья программа

 

var  x: array[1..10] of integer;   i: integer; begin  for i : = 1 to 10 do  begin      write('x[', i, '] = ');       readln(x[i]);       if x[i] < 0 then          x[i] : = x[i] * x[i];   end;   writeln;   writeln('result');   for i : = 1 to 10 do      write(x[i], ' ');   readln; end.

 

 

 

// четвертая программа

 

var  x: array[1..10] of integer;   i: integer; begin  for i : = 1 to 10 do  begin      write('x[', i, '] = ');       readln(x[i]);       if x[i] > 10 then          x[i] : = x[i] + 2;   end;   writeln;   writeln('result');   for i : = 1 to 10 do      write(x[i], ' ');   readln; end.

ответ: 428

нашел с программы

 

var  x, l, m, i: integer; begin  for i : = 4096 downto 1 do  begin      l : = 0;       m : = 1;       x : = i;             while x > 0 do      begin          inc(l);           m : = m *(x mod 8);           x : = x div 8;       end;       if (l = 3) and (m = 120) then      begin          writeln('x = ', i);           break;       end;   end;   readln; end.