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

Program perevod_kilo_v_tonni;Var massa, tonn: integer;beginwriteln (\' Введите массу в килограммах: \');readln (massa);begin;tonn := massa div 1000;end;writeln (tonn);end.(Программа проверена в PascalABC)Оператор div оставляет целую часть от деления. В 1 тонне 1000 килограмм, поэтому массу в килограммах делим на 1000.