program CalcTons; var mass, tons: integer; begin // Ввод массы в килограммах Write('Введите массу в килограммах: '); ReadLn(mass); // Вычисляем количество полных тонн в массе tons := mass div 1000; // Выводим результат WriteLn('Количество полных тонн: ', tons); end.
Программа запрашивает у пользователя массу в килограммах и находит количество полных тонн в ней, используя операцию деления нацело.
Программа на DELPHI:
program CalcTons;var
mass, tons: integer;
begin
// Ввод массы в килограммах
Write('Введите массу в килограммах: ');
ReadLn(mass);
// Вычисляем количество полных тонн в массе
tons := mass div 1000;
// Выводим результат
WriteLn('Количество полных тонн: ', tons);
end.
Программа запрашивает у пользователя массу в килограммах и находит количество полных тонн в ней, используя операцию деления нацело.