1.Вводится 4-значное число из его цифр получить два двухзначных числа.Первое состоит из 1 и 3 цифр исходного числа, второе из 2 й и 4-й.Например 3765>36 и 75 2.Cоставить программу расчета значения функции:
Z=tg x-|2sin 2y+7.8 cos x |+ 10 При любых значениях x= и y= результат вывести в x= и y= z=

1)

var

 n,a,b:integer;

begin

 repeat

   readln(n);

 until (n>999) and (n<10000);

 a:=n div 1000 *10 + n mod 100 div 10;

 b:=n div 100 mod 10 *10 + n mod 10;

 writeln(a,' ',b);

end.

2)

var

 x,y,z:real;

begin

 readln(x,y);

 z:=tan(x*pi/180)-abs(2*sin(2*y*pi/180)+7.8*cos(x*pi/180))+10;

 writeln(z);

end.

Если моё решение вам, пометьте его лучшим !