Question

дана масса автомобиля в килограмах 5145кг. ОПРЕДЕЛИТЕ СКОЛЬКО ТОН И СКОЛЬКО КИЛОГРАМОВ весит автомобиль в pascal abc

Answer 1

Вводи в PascaABC:

program massCounter; //Специально для lolpas1234
var kg,t :integer;
Begin
  kg:=5145 mod 1000;
  t:=5145 div 1000;
  WriteLn('Автомобиль весит ', t, ' тонн и ', kg, ' килограмм');
End. //Специально для lolpas1234