Ответы и объяснения

  • Kitsu
  • почетный грамотей
2013-01-18T16:08:15+04:00

var a:integer;

begin

writeln('Введите кол-во метров:');

read(a);

writeln('Кол-во полных километров: ', a div 1000);

end.