Склавиатуры вводится целое число не превышающее 2 миллиарда.заменить четные цифры на 0. нужна .

ANADTYEE ANADTYEE    1   17.06.2019 15:50    1

Ответы
veronikasizonov veronikasizonov  02.10.2020 03:51
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика