Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
dimitiy02
04.02.2020 05:15 •
Информатика
Паскаль. написать функцию, находящую максимальное из двух вещественных чисел и с её определить максимальное из 4-х вводимых с клавиатуры вещественных чисел.
Показать ответ
Ответ:
wonder1337
01.10.2020 19:03
Готово
function max(a1, a2:integer):integer;
begin
if a1>a2 then max:=a1 else max:=a2;
end;
var
a, b, c, d: integer;
begin
readln(a, b, c, d);
write(max(max(a, b), max(c, d)));
end.
Если есть какие-то вопросы или ещё нужна в ЛС.
0,0
(0 оценок)
Популярные вопросы: Информатика
kosorotovslavik
06.03.2020 10:41
Какое число является двоичным эквивалентом десятичного числа 101 (с пояснением )...
baburinyaroslav
25.02.2021 19:30
Доска для гексагональных шахмат имеет вид шестиугольника со стороной 6, собранного из 91 единичных шестиугольников, как показано на рисунке ниже, изображающем также начальную...
absaliamov2868уке3
29.03.2022 10:08
Должно решаться в PascalABC. Сформируйте из значений функции двухмерный массив B[1..2,1..40], элементы B[1,k] представляют собой значения функции, а элементы B[2,k] – остаток...
kristpan2004p0c22v
03.02.2022 19:54
Сообщение о том, что найден цветок сирени с 5 лепестками содержит 7 бит информации, как часто встречаются подобные цветы на сирени?...
baseke2018
03.02.2022 19:54
103 (в х-ой системе счисления) + 11 (в 10 системе счисления) = 103 (в х+1 системе счисленя) решить уравнение...
lera0078
29.05.2020 09:49
Переделать предложения, используя косвенное местоимение-дополнение: 1. Il parle à ses amis. 2. Il n’écrit pas à sa soeur. 3. Elle a écrit à ses parents. 4. Elles n’ont pas...
lenabogdanv1
02.08.2021 20:27
6 сынып бжб тарихи тұлғалар лексика...
tazab705
01.04.2021 03:17
5. Чему равна плотность жидкости, 125 л которой имеют массу 100 кг?...
ОСЕНЬ2019
23.07.2021 01:48
Постройте график у=4х+3...
Anny2107
21.10.2022 15:31
Даны некоторые тохарские В слова...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
function max(a1, a2:integer):integer;
begin
if a1>a2 then max:=a1 else max:=a2;
end;
var
a, b, c, d: integer;
begin
readln(a, b, c, d);
write(max(max(a, b), max(c, d)));
end.
Если есть какие-то вопросы или ещё нужна в ЛС.