Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

// 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