Переведем все числа в десятичную сс 1000p=p^3
120p=p^2+2p 110p=p^2+p получаем уравнение p^3=p^2+2p+p^2+p
p^3-p^2-2p-p^2-p =0 реши уравнение и найди p
Program Zilly;
uses crt;
const n=10;
var
a,b,c:real;
tup,pryam:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
tup:=0;
pryam:=0;
writeln('Введите стороны треугольника');
write('А = '); readln(a);
write('B = '); readln(b);
write('C = '); readln(c);
a:=a*a;
b:=b*b;
c:=c*c;
if a=b+c then pryam:=1;
if b=a+c then pryam:=1;
if c=a+b then pryam:=1;
if a>b+c then tup:=1;
if b>a+c then tup:=1;
if c>a+b then tup:=1;
if tup=1 then writeln('Треугольник тупоугольный')
else
if pryam=1 then writeln('Треугольник прямоугольный')
else writeln('Треугольник остроугольный');
end.
Объяснение:
во вложениях.....
^ у меня не ставится, но выполняет свои действия, у себя его ставьте!
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadlnString.Replace('ма','ко').Println
end.
<u>Пример</u>
Тамара сломала куклу.
Такора слокола куклу.