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