Известно сопротивление каждого из двух элементов электрической цепи, соединённых параллельно. Подготовить лист для расчета общего сопротивления цепи. Для того, чтобы исключить появление об ошибке, связанного с делением на ноль в случае, когда значения сопротивлений еще не заданы, в ячейках, в которых должны задаваться эти значения, условно введите 1.

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.

static void Main(string[] args)         {             string str = "Мама мыла раму";             string[] arr = str.Split(' ');             string result = "";             for (int i = 0; i < arr.Length; i++)             {                 if (arr[i].Length != 1)                 {                     char ch1 = arr[i][0];                     char ch2 = arr[i][arr[i].Length - 1];                     arr[i] = ch2 + arr[i].Substring(1, arr[i].Length - 2) + ch1;                 }                 result += arr[i] + " ";             }             Console.WriteLine(result);             Console.ReadLine();         }