Срочно помогите решить!ЗАДАЧА PASCAL ABC Кот Матроскин записал сумму денег вырученных за...

Question

Срочно помогите решить!ЗАДАЧА PASCAL ABC


Кот Матроскин записал сумму денег вырученных за продажу молока.
Пёс Шарик, назло вечно поучающему его коту, в этой записи заменил
все чётные цифры, уменьшив их на 2(только 0 заменял на 8),не трогая
нечётные цифры. Помогите Матроскину восстановить первоначальную
запись. Ввод корректен (ни одно число не начинается с 8).

Answer 1

// PasaclABC.Net 3.0, сборка 1052
const
  c0=Ord('0');
var
  ns,d:integer;
  s:string;
begin
  Write('Введите сумму, записанную Шариком: '); Read(ns);
  s:='';
  while ns>0 do begin
    d:=ns mod 10;
    if Odd(d) then s:=Chr(d+c0)+s
    else
      if d<>8 then s:=Chr(d+2+c0)+s
      else s:='0'+s;
    ns:=ns div 10
  end;
  Write('Сумма, записанная Матроскиным: ',s)
end.

Тестовое решение:
Введите сумму, записанную Шариком: 14258
Сумма, записанная Матроскиным: 16450