Составьте программы для решения задач Задача 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.