УМОЛЯЮ ниже задание картинка раскраска ниже

https://my.informatics.ru/api/v1/manuals/material_files/492060/download/

1. Открой папку “Раскраска” в архиве, который ты скачал выше.

2. Запусти в ней командную строку.

3. Замени одни цвета на другие, чтобы получилась цветная картинка.

4. Отправь получившуюся картинку в эту задачу.

Новый цвет

R = 255, G = 164, B = 247

R = 193, G = 193, B = 193

R = 180, G = 153, B = 100

R = 76, G = 76, B = 76

R = 248, G = 249, B = 184

R = 204, G = 204, B = 204

R = 184, G = 249, B = 242

R = 198, G = 198, B = 198

цвет который нужно заменить R = 195, G = 249, B = 184

R = 209, G = 209, B = 209

R = 184, G = 202, B = 249

R = 186, G = 186, B = 186

R = 202, G = 184, B = 249

R = 192, G = 192, B = 192

R = 255, G = 232, B = 149

R = 140, G = 140, B = 140

Так как язык не указан, приведу пример на SWI-Prolog.

Код:

read_int(Int) :- read(Int), integer(Int).split_int_by_numbers(0, []) :- !.split_int_by_numbers(N, [Number|Ints]) :- Number is mod(N, 10), RestN is div(N, 10), split_int_by_numbers(RestN, Ints).test_to_div(_, []).test_to_div(N, [Number|Ints]) :- mod(N, Number) =:= 0, test_to_div(N, Ints). test(Int) :- split_int_by_numbers(Int, Numbers), test_to_div(Int, Numbers), write(Int), write(" - Yes!"), nl.test(Int) :- write(Int), write(" - No!"), nl.?- read_int(Int), test(Int).

1. В "реальном мире" это решается примерно так:

// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
begin
  var a:=ArrRandom(ReadInteger('n='),0,2); a.Println;
  a.Sorted.Println
end.

Тестовое решение:
n= 15
1 2 0 2 2 0 2 0 2 0 0 1 0 0 2
0 0 0 0 0 0 0 1 1 2 2 2 2 2 2

2. Но, поскольку считается, что школьникам больше заняться нечем, их заставляют писать примерно в таком стиле (и время займет, и ощибок понаделают):

// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
const
  nn=100;
var
  i,j,n,t:integer;
  a:array[1..nn] of integer;
begin
  Write('n='); Read(n);
  Randomize;
  for i:=1 to n do begin
    a[i]:=Random(3);
    Write(a[i],' ')
    end;
  Writeln;
  for i:=1 to n-1 do
    for j:=1 to n-1 do
      if a[j]>a[j+1] then begin
        t:=a[j]; a[j]:=a[j+1]; a[j+1]:=t
        end;
  for i:=1 to n do Write(a[i],' ');
  Writeln;
end.

Тестовое решение:
n=15
0 1 1 0 2 1 0 2 1 2 1 0 0 2 0
0 0 0 0 0 0 1 1 1 1 1 2 2 2 2