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

Question

Информатика

Арменыч

13 декабря, 05:27

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

+2

Ответы (2)

Знаете ответ?

Эдуардик · Answer 1

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.

Семенка · Answer 2

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.