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