Задать вопрос
1 октября, 07:50

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

+1
Ответы (1)
  1. 1 октября, 07:59
    0
    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.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «В данном целом числе N, заменить нулями все четные цифры в данном числе. Вывести полученное число. (Паскаль) ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы