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.
Порт- обычно соединение (физическое или логическое), через которое принимаются или отправляются данные на компьютере.
1л=1дм^3
8л = 0.008 куб метров
5.68кг=0.00568 тон
плотность
0.00568/0.008=0.71 тон на кубометр
500*0.71 = 355 тон влезет в цистерну
Program trangle;
var a,b,c: real;
begin
readln(a,b,c);
if ((a+b) > c) and ((a+c) > b) and ((c+b)>a) then writeln('trangle is exist')
else
writeln ('tranle doesnt exist');
readln;
end.