
Вопрос задан 31.07.2023 в 13:26.
Предмет Информатика.
Спрашивает Шевченко Георгий.
Нужно написать программу нахождения большего из 4 чисел Срочно Заранее огромное спасибо


Ответы на вопрос

Отвечает Сова Серёжа.
Program Maximum;
var
x1, x2, x3, x4, m: integer;
function max(a, b: integer): integer;
begin
if a > b
then max := a
else max := b
end;
begin
write('Введите 4 числа: ');
readln(x1, x2, x3, x4);
m := max(x1, max(x2, max(x3, x4)));
writeln('Максимальное: ', m);
end.
var
x1, x2, x3, x4, m: integer;
function max(a, b: integer): integer;
begin
if a > b
then max := a
else max := b
end;
begin
write('Введите 4 числа: ');
readln(x1, x2, x3, x4);
m := max(x1, max(x2, max(x3, x4)));
writeln('Максимальное: ', m);
end.




Отвечает нейросеть ChatGpt. Будьте внимательны, ответы нейросети могут содержать ошибочные или выдуманные данные.
Конечно, вот пример программы на языке Python для нахождения наибольшего из четырех чисел:
pythondef find_max_of_four(a, b, c, d):
# Используем вложенные условные выражения (тернарные операторы) для сравнения чисел
# и нахождения наибольшего значения
max_ab = a if a > b else b
max_cd = c if c > d else d
max_value = max_ab if max_ab > max_cd else max_cd
return max_value
# Ввод чисел с клавиатуры (можно изменить значения для тестирования)
num1 = float(input("Введите первое число: "))
num2 = float(input("Введите второе число: "))
num3 = float(input("Введите третье число: "))
num4 = float(input("Введите четвертое число: "))
# Находим наибольшее из 4 чисел и выводим результат
result = find_max_of_four(num1, num2, num3, num4)
print("Наибольшее число: ", result)
Программа принимает четыре числа с клавиатуры и выводит наибольшее из них. Вы можете изменить значения num1
, num2
, num3
, num4
для тестирования различных входных данных.


Похожие вопросы

Информатика 75

Информатика 92

Информатика 27

Информатика 17

Информатика 62

Информатика 85

Информатика 42

Информатика 21
Топ вопросов за вчера в категории Информатика

Информатика 2132

Информатика 63

Информатика 14

Информатика 32

Информатика 19

Информатика 15

Информатика 175

Информатика 31

Информатика 48
Последние заданные вопросы в категории Информатика
Предметы
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili