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

Question

2. Дана масса M в килограммах. Используя операцию деления нацело, найти количество полных тонн в ней (1 тонна = 1000 кг).

Answer 1

Var m: integer;
begin
readln(m);
write (m,' кг содержит  ', m div 1000, ' полных тонн');
end.