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

Нужно написать программу нахождения большего из 4 чисел заранее огромное

Показать ответ
Ответ:
29Vladislava13
29Vladislava13
27.08.2020 01:52
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.

Нужно написать программу нахождения большего из 4 чисел заранее огромное
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота