Даны стороны a,b и c. если треугольник равносторонний, то вывести информацию, что он равносторонний. а если равнобедренный, то найти его высоту.язык pascal
V=K*I; V - объем сообщения K - количество символов в сообщении I - вес одного символа; N=2^I, где N мощность алфавита (N≤32 ⇒ I≤5); V₁=V₂ (объёмы сообщений); 2,5*K₁ = K₂ V₁=K₁*I₁; V₂=K₂*I₂=2,5*K₁*I₂; приравняем объёмы K₁*I₁=2,5*K₁*I₂ ⇒ I₁ = 2,5*I₂ решим уравнение в целых числах, учитывая, что любое I≤5 ( можно подставлять числа для I₁ от 1 до 5 и найти то решение, при котором I₂ - целое число); у меня получилось I₁ = 5; I₂=2 т.к. 5=2,5*2 нам нужны мощности 1го и 2го алфавитов N₁=2^I₁=2⁵=32 символа; N₂=2^I₂=2²=4 символа.
V=K*I; V - объем сообщения K - количество символов в сообщении I - вес одного символа; N=2^I, где N мощность алфавита (N≤32 ⇒ I≤5); V₁=V₂ (объёмы сообщений); 2,5*K₁ = K₂ V₁=K₁*I₁; V₂=K₂*I₂=2,5*K₁*I₂; приравняем объёмы K₁*I₁=2,5*K₁*I₂ ⇒ I₁ = 2,5*I₂ решим уравнение в целых числах, учитывая, что любое I≤5 ( можно подставлять числа для I₁ от 1 до 5 и найти то решение, при котором I₂ - целое число); у меня получилось I₁ = 5; I₂=2 т.к. 5=2,5*2 нам нужны мощности 1го и 2го алфавитов N₁=2^I₁=2⁵=32 символа; N₂=2^I₂=2²=4 символа.
program samsdelal;
var
a,b,c: real;
begin
readln(a);
readln(b);
readln(c);
if (a=b)and(b=c) then writeln('Треугольник равносторонний')
else
if (a=b)and(b<>c) then writeln('Высота равна: ', sqrt(b*b-0.25*c*c));
if (c=b)and(b<>a) then writeln('Высота равна: ', sqrt(b*b-0.25*a*a));
if (a=c)and(c<>b) then writeln('Высота равна: ', sqrt(a*a-0.25*b*b));
end.
Объяснение: