Решить на DELPHI .Дана масса м в килограммах. Используя операцию деления нацело, найти количество полных тонн в ней.

Предыдущий
вопрос Следующий
вопрос

program MassToTons;

uses
SysUtils;

var
mass, tons: Integer;

begin
write('Введите массу в килограммах: ');
readln(mass);

// Находим количество полных тонн
tons := mass div 1000;

writeln('Количество полных тонн: ', tons);
end.