Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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