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

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

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

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

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

Question

Патрикей

13 ноября, 04:45

+5

Ответы (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а) равностороннимб) равнобедреннымв) разносторонним