Question

Напишите программы для решения задач .используя div и mod дана масса в граммах.переведите ее в килограммы и граммы

Answer 1

Var
  m,k,g:integer;
 
begin
  Write('Введите массу в граммах: '); Read(m);
  k:=m div 1000;
  g:=m mod 1000;
  Writeln(m,' г = ',k,' кг ',g,' г')
end.
 
Пример
Введите массу в граммах: 23521
23521 г = 23 кг 521 г