1) Найти два меньших числа из трех.

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

а) равносторонним

б) равнобедренным

в) разносторонним

Question

Гали

24 апреля, 11:19

+3

Ответы (1)

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

Васюха · Answer 1

Var a, b, c:integer;

begin

writeln ('введите три числа') ;

readln (a, b, c) ;

if ((a
if ((a
if ((c
if ((c
end.

1) Найти два меньших числа из трех.2) Определить, является ли треугольник со сторонами a, b, cа) равностороннимб) равнобедреннымв) разносторонним