Определить, является ли треугольник со сторонами a, b, c равнобедренным

Question

Информатика

Юлиания

23 октября, 22:46

Определить, является ли треугольник со сторонами a, b, c равнобедренным

+4

Ответы (1)

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

Любуша · Answer 1

Var a, b, c:integer;

begin

writeln ('a=') ;

readln (a) ;

writeln ('b=') ;

readln (b) ;

writeln ('c=') ;

readln (c) ;

if (a=b) or (b=c) or (c=a) then writeln ('treugolinik ravnobedrenniy') else writeln ('treugolinik ne ravnobedrenniy') ;

readln;

end.