Введите три стороны треугольника. Определите вид (равнобедренный, разносторонний, равносторонний)
Ответы
Ответ дал:
0
var a,b,c : integer;
begin
readln (a,b,c);
if (not (a=b)) and (not (b=c)) and (not (a=c)) then writeln('разносторонний')
else if ((a=b) and (not (b=c)) and (not (a=c))) or ((b=c) and (not (b=a)) and (not (c=a))) or ((a=c) and (not (a=b)) and (not (c=b))) then writeln('равнобедренный')
else writeln('равносторонний');
readln;
end.
begin
readln (a,b,c);
if (not (a=b)) and (not (b=c)) and (not (a=c)) then writeln('разносторонний')
else if ((a=b) and (not (b=c)) and (not (a=c))) or ((b=c) and (not (b=a)) and (not (c=a))) or ((a=c) and (not (a=b)) and (not (c=b))) then writeln('равнобедренный')
else writeln('равносторонний');
readln;
end.
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад
8 лет назад