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

Составьте программы для решения задач Задача 1. Найти площадь треугольника по двум сторонам и углу между ними. Величину Угла вводить в градусах. Ответ дать с точностью до трёх знаков после запятой Задача 2. Представить в исходном пятизначном числе из интервала [10000;32767] вторую и третью цифры местами. Например: Входное число 12345, выходное 13245.
- Предмет:
  Информатика
- Автор:
  connor19
- 5 лет назад

Ответы 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.
- Автор:
  selenafletcher
- 5 лет назад
- 0
Добавить свой ответ

Еще вопросы

How much to ban the user?

1 hour 1 day 100 years