Предмет: Информатика,
автор: DimasCools
С клавиатуры вводится целое число не превышающее 2 миллиарда.заменить четные цифры на 0. Срочно нужна помощь.
Ответы
Автор ответа:
0
Easy
var
i:integer;
s:string;
begin
readln(s);
for i:=1 to length(s) do if (s[i]='2') or (s[i]='4') or (s[i]='6') or (s[i]='8') then s[i]:='0';
end.
var
i:integer;
s:string;
begin
readln(s);
for i:=1 to length(s) do if (s[i]='2') or (s[i]='4') or (s[i]='6') or (s[i]='8') then s[i]:='0';
end.
Похожие вопросы
Предмет: Қазақ тiлi,
автор: 0646110
Предмет: Физика,
автор: harcenkoariana
Предмет: Қазақ тiлi,
автор: Аноним
Предмет: Литература,
автор: wwefan