Задать вопрос
18 апреля, 06:37

Дано целое двузначное число. Верно ли, что обе его цифры четные? (Ответ вывести в форме "Да" либо "Нет").

+3
Ответы (1)
  1. 18 апреля, 08:35
    0
    Var

    a:integer;

    begin

    write ('a=') ;

    readln (a) ;

    if (a mod 2 = 0) and ((a div 10) mod 2 = 0) then

    writeln ('Да')

    else

    writeln ('Нет')

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Дано целое двузначное число. Верно ли, что обе его цифры четные? (Ответ вывести в форме "Да" либо "Нет"). ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Задача 1 - Дано целое число. Если оно положительное, вывести " Число положительное ", если отрицательное вывести "Число отрицательное ", если равно 0 - "Число равно нулю" задача 2 - дано целое число.
Ответы (1)
1. Дано двузначное число. Определить: a. какая из его цифр больше, первая или вторая; b. одинаковы ли его цифры. 2. Дано двухзначное число. Определить, равен ли квадрат этого числа учетверённой сумме кубов его цифр.
Ответы (1)
Дано целое положительное четырехзначное число а. Найти минимальную цифру среди первых трех цифр числа, а также определить: первая или вторая цифра числа четная, или обе цифры четные, или обе цифры нечетные. Результаты вывесите на экран.
Ответы (1)
Вводятся два натуральных числа. если оба числа чётные, то вывести большее из них. если оба числа не чётные, то вывести меньшее из них. если одно чётное, а другое не чётное, то вывести их произведение на экран.
Ответы (2)
Решить задачи: 1. Дано целое число. Если оно является положительным, то прибавить к нему 8, если нет, то не изменять. Вывести полученное число. 2. Дано целое чило.
Ответы (1)