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

Question

Информатика

Дашура

19 января, 16:11

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

+4

Ответы (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