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

Question

Информатика

Транквиллина

24 января, 07:00

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

+1

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