В данном целом числе N, заменить нулями все четные числа в

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

Задать свой вопрос
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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт