Question

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

Answer 1

var a,b,c:integer;
begin
writeln('введите три числа');
readln(a,b,c);
if ((a<b) and (a<c)) and (b<c) then writeln ('меньшие ', a,'и',b) ;
if ((a<b) and (a<c)) and (c<b) then writeln ('меньшие ', a,'и',c) ;
if ((c<a) and (c<b)) and (a<b) then writeln ('меньшие ', c,'и',a) ;
if ((c<b) and (c<a)) and (b<a) then writeln ('меньшие ', c,'и',b) ;
end.