В заданном целом положительном числе N (0 < N < 2^10) удалите все четные цифры не нарушая последовательности цифр в числе. в паскале

Question

Информатика

Михайло

8 марта, 00:43

В заданном целом положительном числе N (0 < N < 2^10) удалите все четные цифры не нарушая последовательности цифр в числе. в паскале

+5

Ответы (1)

Знаете ответ на вопрос?

Васёна · Answer 1

Var A, B, n, M:integer;

Begin

Write ('A = ') ; ReadLn (A) ;

While A0 do

Begin

if (A mod 10) mod 2 = 0 then

Begin

M:=1;

For n: = 0 to n do

M:=M*10;

B: = (A mod 10) * M+B;

n:=n+1;

End;

A:=A div 10;

End;

WriteLn (B div 10) ;

End.

Пример:

A = 123456789

2468