Question

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

Answer 1

Var
   A,B,C,D:integer;
Begin
Write('Введите четыре целых числа: ');ReadLn(A,B,C,D);
if A < B then A:=B;
if A < C then A:=C;
if A < D then A:=D;
WriteLn('Max = ',A);
End.

Answer 2

Программа нахождения максимального из четырех чисел

Вот пример программы на языке Python, которая находит максимальное из четырех чисел, вводимых с клавиатуры:

# Ввод четырех чисел с клавиатуры
num1 = float(input("Введите первое число: "))
num2 = float(input("Введите второе число: "))
num3 = float(input("Введите третье число: "))
num4 = float(input("Введите четвертое число: "))

# Нахождение максимального числа
max_num = max(num1, num2, num3, num4)

# Вывод результата
print("Максимальное число:", max_num)

Вы можете скопировать эту программу и запустить ее в среде разработки Python, чтобы увидеть результат.

Примечание: Это пример программы на языке Python. Если вам нужна программа на другом языке программирования, пожалуйста, уточните, на каком языке вы хотите получить программу.