Некоторое десятичное число х перевели в системы счисления с основаниями 16, 8 и 4. часть символов при записи была утеряна. восстановите все цифры и определите число х, если известно х = #7#16 = 5#68 = ####1#4, где символ «#» обозначает потерянную цифру.

For i in 0..15       c = "e0".to_i(16) + i       puts "%s_16 = %s_8 = %s_4 = %s_2" % [c.to_s(16),c.to_s(8),c.to_s(4),c.to_s(2)] end e0_16 = 340_8 = 3200_4 = 11100000_2 e1_16 = 341_8 = 3201_4 = 11100001_2 e2_16 = 342_8 = 3202_4 = 11100010_2 e3_16 = 343_8 = 3203_4 = 11100011_2 e4_16 = 344_8 = 3210_4 = 11100100_2 e5_16 = 345_8 = 3211_4 = 11100101_2 e6_16 = 346_8 = 3212_4 = 11100110_2 e7_16 = 347_8 = 3213_4 = 11100111_2 e8_16 = 350_8 = 3220_4 = 11101000_2 e9_16 = 351_8 = 3221_4 = 11101001_2 ea_16 = 352_8 = 3222_4 = 11101010_2 eb_16 = 353_8 = 3223_4 = 11101011_2 ec_16 = 354_8 = 3230_4 = 11101100_2 ed_16 = 355_8 = 3231_4 = 11101101_2 ee_16 = 356_8 = 3232_4 = 11101110_2 ef_16 = 357_8 = 3233_4 = 11101111_2

Если не видно на скриншоте  (Я правильно понял,как нужно сделать?)

1)

Program v1;

var a:array[1..15]of integer;            

i,n,kol:integer;

begin          

randomize;

for i:=1 to 15 do a[i]:=random(70)+10;                            

write('Значение матрицы: ');                                      

for i:=1 to 15 do write(a[i]:5); writeln;  

kol:=0;

 for i:=1 to 15 do

   if a[i]>50 then kol:=kol+1;

 writeln(kol);

 end.

   2)

Program v1;

var a:array[1..20]of integer;            

i,n,kol:integer;

begin            

randomize;

for i:=1 to 20 do a[i]:=random(100)+50;                            

write('Значение матрицы: ');                                      

for i:=1 to 20 do write(a[i]:5); writeln;  

kol:=0;

 for i:=1 to 20 do

   if a[i]<100 then kol:=kol+1;

 writeln('Количество элементов массива, значение которых меньше 100: ',kol);

 end.

   

   

Желтые      красные    зеленые   6                  6              0   8                  0              4   7                  3              2 вот программка на паскале: uses crt; var g, k, z: integer; begin   clrscr;   for g: =0 to 12 do     for k: =0 to 12 do           for z: =0 to 12 do                   begin                         if (g+k+z=12)  and (0.5*g+1.5*k+2*z=12) then                               writeln (g,' ',k, ' ', z);                   end;   readln; end. вывод: можно вообще не брать красные или зеленые шары. если брать шары всех цветов, то ответ у один 7   3   2