Составить программу для вычисления выражения: а) при x = 2.36, c = 18.7, d = 6.46 б) если знаменатель равен нулю, на экран нужно выдавать сообщение об ошибке. p. s. там где двоеточия - дробь, там где восклицательные знаки - модуль, и в выражений б) sin(п: 7),и в sin(2п: 7)

program kyt333; uses crt; const  c=18.7;   d=6.46; var  x,y,a: real; begin  write('введите х: '); readln(x);   writeln();   if (abs(x)+d = 0) or (cos(x)=0) then writeln('знаменатель равен нулю! ')  else            begin          y: =(c+d-sin(x)/cos(x))/(abs(x)+d);           a: =5.23+7.6*7.6+sin(pi/7)/sin(2*pi/7)+3.1;       end;   writeln('результаты: ');   writeln('y=',y: 8: 2); writeln('a=',a: 8: 2); end.

на паскале:

program ostatok; var c: integer; beginwriteln('введите число с.'); readln(c); writeln('остаток от деления ',c,' на 10, возведенный в квадрат, равен ',sqr(c mod 10)); end.

1)

var 

a,b,c: real;

begin

readln(a,b);

c: =180-a-b;

if (a> 90) or (b> 90) or (c> 90) then writeln('тупоугольный')

else

if  (a=90) or (b=90) or (c=90) then writeln('прямоугольный')

else  writeln('остроугольный');

end.

2)

var

v: real;

begin

readln(v);

if v< 7.8 then writeln ('ракета упадет на землю');

if v=7.8 then  writeln ('ракета станет спутником земли');

if (v> 7.8) and (v< =16.4) then  writeln ('ракета останется в пределах солнечной системы'); if (v> 16.4) then  writeln ('ракета покинет пределы солнечной системы');  

end.