В данном целом числе N, заменить нулями все четные цифры в данном числе. Вывести полученное число.(Паскаль)
В данном целом числе N, заменить нулями все четные цифры в данном числе. Вывести полученное число.(Паскаль)
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы