Создайте программу, которая проверяет, является ли хотя бы одно из трех чисел, введенных с клавиатуры, четным.

PascalABC:

Программу, значит, написать... - Это можно. Только вот на каком языке программирования это нужно сделать? - Нет, программе-то, конечно, без разницы, на каком языке программирования (а их (языков программирования) существует порядка 40) она написана, а вот учитель/преподаватель может спросить, с чего это программа была написана на этом языке программирования, а не на том, который он(а) преподает.

Вот, например, на Pascal:

 Program P1; 

uses crt; 

var a, b, c: integer; 

begin 

clrscr; 

writeln ('Введите с клавиатуры 3 целых числа (по 1). После ввода каждого числа нажимайте клавишу Enter.'); 

write ('Введите 1-ое число: '); 

readln (a); 

write ('Введите 2-ое число: '); 

readln (b); 

write ('Введите 3-е число: '); 

readln (c); 

if (a mod 2=0) or (b mod 2=0) or (c mod 2=0) then writeln ('Да, хотя бы 1 число из введенных четное.') else writeln ('Среди введенных чисел нет четных.'); 

write ('Программа завершена. Для выхода нажмите клавишу Enter.'); 

readkey; 

end. 

Вот на Python:

 print ("Введите с клавиатуры 3 целых числа (по 1). После ввода каждого числа нажимайте клавишу Enter.") 

a=int (input (f"Введите 1-ое число: ")) 

b=int (input (f"Введите 2-ое число: ")) 

c=int (input (f"Введите 3-е число: ")) 

if a%2==0 or b%2==0 or c%2==0: 

    print ("Да, хотя бы 1 число из введенных четное.") 

else: 

    print ("Среди введенных чисел нет четных.") 

Вот на C++:

 #include  

using namespace std; 

int main() 

{ 

    setlocale (LC_ALL, "RUS"); 

    int a, b, c; 

    cout

num1 = int(input("Введите первое число: "))
num2 = int(input("Введите второе число: "))
num3 = int(input("Введите третье число: "))

if num1 % 2 == 0 or num2 % 2 == 0 or num3 % 2 == 0:
print("Да, есть хотя бы одно четное число")
else:
print("Нет, нет ни одного четного числа")