В данном целом числе N, заменить нулями все четные цифры в данном числе. Вывести полученное число. (Паскаль)

Question

Информатика

Эра

3 января, 20:54

В данном целом числе N, заменить нулями все четные цифры в данном числе. Вывести полученное число. (Паскаль)

+2

Ответы (1)

Знаешь ответ?

Ара · Answer 1

Program changeNum;

var

num:string;

ci:byte;

begin

readln (num);

for ci:=1 to ord (num[0]) do

if (ord (num[ci]) - 48) mod 2=0 then num[ci]:='0';

writeln;

write (num); readln;

end.