Является ли треугольник равнобедренным? Даны три числа-стороны треугольника. Написать программу на языке Паскаль

Question

Информатика

Нимфа

8 мая, 16:10

Является ли треугольник равнобедренным? Даны три числа-стороны треугольника. Написать программу на языке Паскаль

+3

Ответы (2)

Знаете ответ на вопрос?

Марлеся · Answer 1

Program test;

var a, b, c:real;

begin

readln (a, b, c) ;

if (a=c) or (a=b) or (c=b) then writeln ('Треугольник равнобедренный')

else writeln ('Треугольник не равнобедренный') ;

end.

Хаврония · Answer 2

Var a, b, c: real; {стороны треугольника}

begin

write ('a=') ; read (a) ;

write ('b=') ; read (b) ;

write ('c=') ; read (c) ;

if (a=b) or (a=c) or (b=c) write ('Treugolnik ravnobedrenniy')

else write ('Treugolnik ne ravnobedrenniy') ;

end.