Выпишите для данных чисел предыдущее и последующие числа: а)555506, б)110008

а) предыдущее - 555505, последующее - 555507

Объяснение:

б) предыдущее - 110007, последующее - 110009

а если число

var n,i,p: integer;

s: string;

begin

  read(n);

  s: =str(n) ; {переводим число в строку}

  n: =0;

  for i : = 1 to length(s) do

      n: = n+ int(s[i]); {переводим каждый символ строки обратно в цифру}

  writeln(n);

  read(n);

  p: =1;

  for i: = 1 to n do

    p: = p*i;

  writeln(p);

end.

расстояние в сантиметрах разделить на число сантиметров в одном метре