Как отлично подготовиться к кр по инфе

Question

Информатика: Как отлично подготовиться к кр по инфе

лалка136 · Accepted Answer

PascalABC.NET 3.3.5, сборка 1640 от 17.03.2018
Внимание! Если программа не работает, обновите версию!

1. Современное решение

begin
var m:=ReadInteger('Введите расстояние в метрах');
var (km,mm):=(m div 1000,m mod 1000);
Write(m,'км = ',km,'км');
if mm>0 then Writeln(' ',mm,'м') else Writeln
end.

Пример
Введите расстояние в метрах 4501
4501км = 4км 501м

2. Так часто учат писать в школе

program Perevod;

var
m,km,mm:integer;

begin
Write('Введите расстояние в метрах');
Readln(m);
km:=m div 1000;
mm:=m mod 1000;
Write(m,'км = ',km,'км');
if mm>0 then Writeln(' ',mm,'м')
else Writeln;
end.

MOGZ ответил