Составьте программы для решения задач Задача 1. Найти площадь треугольника по двум...

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.