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

А)Составьте программу ,которая позволяет с клавиатуры ввести значения переменных x и y,и проверяет истинность высказывания: "Хотя бы одно из чисел нечётное„.
Б)Составьте программу ,которая позволяет с клавиатуры ввести значения переменных x и y,и проверяет истинность высказывания:
"Каждое из чисел чётное„.

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

    Номер 1

    Program n_1;

    Var x, y:integer;

    Begin

       read(x, y);

       if (x mod 2 = 1) or (y mod 2 = 1) then writeln('По крайней мере одно из чисел нечетное')

       else writeln('Нечетных чисел здесь нет');

    End.

    Номер 2

    Program n_2;

    Var x, y:integer;

    Begin

       read(x, y);

       if (x mod 2 = 0) and (y mod 2 = 0) then writeln('Оба числа четные')

       else writeln('По крайней мере одно из чисел нечетное');

    End.

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