Информатика 9 класс Помогите решить следующие задачи: 1) Заданы 2 числа. являются ли они...

Question

Информатика 9 класс
Помогите решить следующие задачи:
1) Заданы 2 числа. являются ли они оба чётными?
2)Заданы 2 числа. является ли хотя бы одно из этих чисел чётным?

Answer 1

1)
var 
    a, b: integer;
begin
    readln(a, b);
    if (a mod 2 = 0) and (b mod 2 = 0) then
        writeln('Оба четные')
    else
        writeln('НЕТ');
end.

2)
var 
    a, b: integer;
begin
    readln(a, b);
    if (a mod 2 = 0) or (b mod 2 = 0) then
        writeln('Является')
    else
        writeln('НЕТ');
end.

Comments

Cпасибо