Question

Дана маса M в грамах определить сколько это будет полных тонн и килограмм

Answer 1

var m: integer;

begin

readln(m);

write (m,' кг содержит  ', m div 1000, ' полных тонн');

end.