1. Переведите числа с десятичной СС в двоичную CC 378 шоу X, у
120 раз
Ха»
X зу
315 он

нам

var  

v:array[1..100] of integer;  

i,j,n,b:integer;  

begin  

randomize;  

write('vvedite razmernost'' massiva: '); readln(n);  

writeln(' Ishodnii massiv '); writeln;  

//Заполним массив случайными числами  

for i := 1 to n do  

begin  

v[ i]:=random(100)-50;  

write(v[ i]:4);  

end;  

writeln;  

// организуем сортироваку от минимального  

// к максимальному элементу массива  

for i:=1 to n-1 do  

for j:=i+1 to n do  

if v[ i]>v[ j] then  

begin  

b:=v[ i];  

v[ i]:=v[ j];  

v[ j]:=b;  

end;  

writeln;  

write(' Otsortirovannii massiv ');writeln;writeln;  

write('ot min k max: ');writeln;  

for i := 1 to n do  

write(v[ i]:4); writeln; writeln;  

write('ot max k min: '); writeln;  

for i := n downto 1 do  

write(v[ i]:4);  

readln;  

end.

x = input()

y = input()

if x == y and (x == 'синий' or x == 'желтый' or x == 'красный') and (y == 'красный' or y == 'синий' or y == 'желтый'):

   print(x)

elif (x == 'красный' or y == 'красный') and (x == 'синий' or y == 'синий'):

   print('фиолетовый')

elif (x == 'красный' or y == 'красный') and (x == 'желтый' or y == 'желтый'):

   print('оранжевый')

elif (x == 'синий' or y == 'синий') and (x == 'желтый' or y == 'желтый'):

   print('зеленый')

elif x != 'синий' and x != 'желтый' and x != 'красный' or y != 'красный' and y != 'синий' and y != 'желтый':

   print('ошибка цвета')

я это уже решал на stepik