Написать программу, которая выводит на экран фразу: "каждый охотник желает знать , где сидят фазаны" каждое слово должно быть выведено наиболее подходящими цветами

как я понял тебе нужна программа которая просто выводит на экран нужный тебе текст

вот она

program ohotnik;

uses crt;

var i: integer;

begin 

clrscr;

textcolor(4);

write(' ka}i{gbiu ');

textcolor(12);

write(' oxothuk ');

textcolor(14);

write(' }i{ejiaet ');

textcolor(2);

write(' 3hatb ');

textcolor(3);

write(' rge ');

textcolor(1);

write(' cug9t ');

textcolor(5);

write(' fa3ahbi ');

readln;

end.

 

зы: слова я пытался писать буквами, я не знаю просто: поддерживает твой паскаль буквы или нет..

1. -57.66 (10) =  -111001.10101000111 (2); - = 1; 111001.10101000111 =  1.1100110101000111 * 10^5; 5 = 101; 5 бит = (5-1) = 1111 разрядов; 101+1111 =  10100 смещённый порядок. 1100110101000111 мантисса 1 10100 1100110101000111  0000000000 2. 0 10000001000 10010111100101 0000000000 11 бит = (11-1) = 1111111111 разрядов. 10000001000 -  1111111111 =  1001 (2) порядок 1001 (2) = 9 (10) 1.10010111100101 * 10^9 = 1100101111.00101 (2) 1100101111.00101 (2) =  815.15 (10) 815.15 (10)

// pascalabc.net 3.2, сборка 1417 от 28.03.2017// внимание! если программа не работает, обновите версию! begin  var m: =readinteger('количество строк в массиве: ');   var n: =readinteger('количество столбцов в массиве: ');   writeln('*** исходный массив [',m,',',n,'] ***');   var a: =matrrandom(m,n,-99,99);   a.println(4); writeln(4*a.colcount*'-');   writeln('*** результат ***');   a.transform(x-> x> =0? 0: 1); a.println(4);   var s: =a.elementsbyrow;   writeln('нулей- ',s.where(x-> x=0).count,', единиц- ',          s.where(x-> x=1).count)end. пример количество строк в массиве: 4 количество столбцов в массиве: 5 *** исходный массив [4,5] ***   -19  61 -47 -38 -26   -95 -35 -56  43  40     0 -52 -87 -85  93   -68  48 -55    5 -93 *** результат ***     1    0    1    1    1     1    1    1    0    0     0    1    1    1    0     1    0    1    0    1 нулей- 7, единиц- 13