Периметр прямоугольника: P=2(a+b). Площадь: S=ab
Косинусы углов в треугольнике:
cosA=(b²+c²-a²)/(2bc); cosB=(a²+c²-b²)/(2ac); cosC=(a²+b²-c²)/(2ab)
var
a,b:real;
begin
Write('Введите a,b: ');
Read(a,b);
Write('P=',2*(a+b),', S=',a*b)
end.
Тестовое решение
Введите a,b: 12.2 8
P=40.4, S=97.6
var
a,b,c,cosA,cosB,cosC:real;
begin
Write('Введите a,b,c: ');
Read(a,b,c);
cosA:=(b*b+c*c-a*a)/(2*b*c);
cosB:=(a*a+c*c-b*b)/(2*a*c);
cosC:=(a*a+b*b-c*c)/(2*a*b);
Write('cosA=',cosA,', cosB=',cosB,', cosC=',cosC)
end.
Тестовое решение
Введите a,b,c: 15.3 8 14.2
cosA=0.138864436619718, cosB=0.855495719414526, cosC=0.393995098039216
ЭТО ЕВО МЫСЛИ и самые лучшие воспоминания
Вот рабочая программа:
var
x,a,b,c,proiz,sum:integer;
begin
WriteLn('Введите 3-ех значное число');read(x);
a:=x mod 10;
b:= (x div 10) mod 10;
c:=x div 100;
sum:=a+b+c;
proiz:=a*b*c;
WriteLn('Произведение разрядов=', proiz);
WriteLn('Сумма разрядов=', sum);
end.