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

Question

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

Fortunato · Accepted Answer

1.var a, b, c: realbegin readln (a, b, c); if (a<b) and (a<c) then writeln ('Меньшее число: ', a); if (b<a) and (b<c) then writeln ('Меньшее число: ', b); if (c<a) and (c<b) then writeln ('Меньшее число: ', c); end.2.var n: integer; begin writeln ('Введите количество килограмм'); readln (n); writeln ('Количество полных тонн: ', n div 1000) end.

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

Задание:

Решение: