1.Даны 3 числа, найти меньшее. 2.Дано число n-кг, найти количество полных тонн. 3.Даны 3...

Question

1.Даны 3 числа, найти меньшее.

2.Дано число n-кг, найти количество полных тонн.

3.Даны 3 точки по своему координату ху, определить могут ли они быть вершинами треуголника, если да , найти Р и S , если нет, обьявить об этом в сообщении.

4.Дано число, определить количество нечётных делителей .

Заранее спасибо!!!

Answer 1

1.

var a, b, c: real

begin 

  readln(a, b, c);

  if (a   if (b

  if (c

end.

2.

var n: integer;

begin

  writeln('Введите количество килограмм');

  readln(n);

  writeln('Количество полных тонн: ', n div 1000)

end.