Введите значение Х, затем введите номер тригонометрической функции, которую надо вычислить: 1 – sin(x), 2 – cos(x), 3 – tg(x), 4 – ctg(x). Выведите результат вычисления соответствующей функции, используя разные цвета для разных функций.
код на программе Pascal

uses crt;

var x, res: real;

funcNum: byte;

begin

   write('X = ');

   readln(x);

   

   writeln();

   TextColor(1);

   writeln('  1 - sin(x)');

   TextColor(2);

   writeln('  2 - cos(x)');

   TextColor(3);

   writeln('  3 - tg(x)');

   TextColor(4);

   writeln('  4 - ctg(x)');

   TextColor(7);

   writeln();

   

   write('Введите номер функции: ');

   readln(funcNum);

   case funcNum of

       1:

           begin

               TextColor(1);

               res := sin(x);

           end;

       2:

           begin

               TextColor(2);

               res := cos(x);

           end;

       3:

           begin

               TextColor(3);

               res := sin(x) / cos(x);

           end;

       4:

           begin

               TextColor(4);

               res := cos(x) / sin(x);

           end;

   end;

   TextColor(7);

   

   writeln(res);

end.

Второе: program o;       var a: array[1..5] of integer; i: integer; begin;       for i: =1 to 5 do readln(a[i]);       for i: =5 downto 1 do writeln(a[i]) end. третье: program p;       var a: array[1..15] of integer; i,sum1,sum2,res: integer; begin;       for i: =1 to 15 do read(a[i]);       for i: =1 to 15 do               if i mod 2=0 then sum1: =sum1+a[i] else sum2: =sum2+a[i];       res: =sum1-sum2;       write(res); end.