Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
dikozzz
22.11.2021 11:48 •
Информатика
Определив подпрограмму нахождения максимума из двух чисел, найти максимум из четырех заданных чисел.
Показать ответ
Ответ:
Dumbass1007
08.10.2020 09: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.
0,0
(0 оценок)
Популярные вопросы: Информатика
glupiychelovek
26.11.2020 19:36
Https://kpolyakov.spb.ru/school/blockly/robot_if.html?level=1 Решите так циклы со скрином с выполненным задание м...
Malinka440
28.05.2023 02:20
Информационные процессы это...
Рюка
11.07.2020 01:37
Что пропущено в ряду Символ - ... - строка фрагмент текста...
1Лелька1
09.04.2020 05:49
Выполните задания по системам счисления.Переведите : 203891_10 - X8...
Fargoo99
16.04.2022 14:01
Получено сообщение информационный объем которого равен 48 битам чему равен этот объем в байтах?...
Sevinch94
06.04.2021 05:26
Таблиця про параолімпійців у середовищи Excel ,...
Кирюха33333
16.09.2021 11:14
Рассмотри таблицу на рисунке. Укажи верно или неверно задан формат данных в указанных адресах ячеек *...
alinka12152002
04.10.2021 20:43
Заменить значение каждого элемента каждой строки массива а на значение соответствующего элемента соответствующего столбца массива в ( 1-й элемент 1-й строки массива а на 1-й...
kjkszpjkangaroo
04.06.2021 03:53
Используя программу MS Excel, вычислисреднее арифметическое 5; 14; 146;223 (при необходимости ответ округли досотых).ответ.ответить!...
milenabalayan
08.06.2023 12:55
Укажите все правильные IP-адреса 1) 192.168.10.222) 255.255.2403) 10.68.124.154) 255.255.224.05) 298.224.20.76) 128.256.200.157) 224.128.180.45...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
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.