Question

Составьте программы для решения 1. найти площадь треугольника по двум сторонам и углу между ними. величину угла вводить в градусах. ответ дать с точностью до трёх знаков после запятой 2. представить в исходном пятизначном числе из интервала [10000; 32767] вторую и третью цифры местами. например: входное число 12345, выходное 13245.

Answer 1

 Program zad1;

Uses Crt;

var alfa,a,b,S:real;

begin

     clrscr;

      write('Введите сторону a:');

      readln(a);

      write('Введите сторону b:');

      readln(b);

      write('Введите угол между сторонами:');

      readln(alfa);

      S:=0.5*a*b*sin(alfa);

       writeln;

       writeln('Площадь треугольника равна:',S:3:3);

     readkey;

 end.

Program zad2;

Uses Crt;

var s:string[5];

       c:char;

 begin

      clrscr;

      write('Введите пятизначное число:');

      readln(s);

      c:=s[3];

      s[3]:=s[2];

      s[2]:=c;

       writeln('Выходное число:',S); 

     readkey;

 end.