Информатика, опубликовано 2018-08-22 23:03:21 by Гость
В данном целом числе 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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на