{* Задача402 *}

REM basic

' Дано натуральное число N, которое вводится с клавиатуры. Получить новое натуральноечисло, заменив все четные цифры исходного числа числом K (К – вводится с клавиатуры).


CLS
INPUT "N-"; n$
INPUT "K-"; k
OPEN "1.txt" For OUTPUT As #1
PRINT #1, n$
CLOSE #1
OPEN "1.txt" For INPUT As #2
INPUT #2, p5
CLOSE #2
KILL "1.txt"
c = LEN(n$)
chislo = 0
For i = 1 To c
    p1 = 10 ^ (c - i)
    p2 = FIX(p5 / p1)
    p5 = p5 - (p2 * p1)
    If p2 / 2 = INT(p2 / 2) Then p2 = k
    p2 = p2 * p1
    chislo = chislo + p2
Next i
PRINT "novoe chislo:"; chislo
End