Написать программку перевода числа метров в километры.(Используя программу PascalABC.NET)И

Ответ:

program raf105;

var m,km: real;

begin

write('Введите метры: ');

readln(m);

km:= m / 1000;

writeln('Это будет ',km,' км.');

end.

Изъяснение:

В километре 1000 метров. Делим количество метров на 1000 и получаем дробное число километров

Тип real принимает числа с цифрами после точки (не целые)

var n:integer;

begin

read(n);

write(n div 1000);

end.