profile
Опубликовано 6 лет назад по предмету Информатика от annayafanova

С клавиатуры вводится 4xзначное число нужно вывести ответ "да", если все его цифры нечетные, и ответ "нет" в остальных случаях. Если введено не 4хзначное число, то должно быть введено сообщение " наверное число". Напишите программу, пожалуйста

  1. Ответ
    Ответ дан contrlc

    //PascalABC.NET 3.4.2

    begin

     var num := readinteger();

     if (num in [1000..9999]) then

     begin

       for var i := 1 to 4 do

         if (num.ToString[i].ToDigit mod 2 <> 0) then  

         begin

           write('нет');

           exit;

         end;

       write('да');

     end

     else

       write(' наверное число');

    end.

Самые новые вопросы