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