Question

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

Answer 1

Ответ:

program HomeWork;

var a: integer;

begin

 write('Введите вес в граммах: '); readln(a);

 write(a ,' г это ', a div 1000, ' кг и ', a mod 1000, ' г.');

end.