Составьте программы для решения задач Задача 1. Найти площадь треугольника по двум сторонам и углу между ними. Величину Угла вводить в градусах. Ответ дать с точностью до трёх знаков после запятой Задача 2. Представить в исходн...

   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.