Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
ayazhankadyrov24
20.02.2020 06:19 •
Информатика
Напишите функцию , которая вычисляет максимальное из чисел трёх чисел . числа вводятся с клавиатуры . используйте функцию . паскаль . !
Показать ответ
Ответ:
mira23141
04.08.2020 15:56
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!
function Max(a,b,c:real):=Max(Max(a,b),c);
begin
var (x,y,z):=ReadReal3('Введите три числа через пробел:');
Writeln('Максимальное из чисел равно ',Max(x,y,z))
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
poddubtsev
01.10.2022 05:13
Турист 40 хв піднімався на гору і 30 хв спускався з гори. Складіть математичну Модель і проєкт для визначення пройденого шляху....
Кыкук
29.04.2022 14:50
Найдите наименьшие основания систем счисления x и y, исходя из условий: 144x=441y...
titomeister
15.04.2020 10:18
6 Задание 4 Между населёнными пунктами A, B, C, D, E, F построе- ны дороги, протяжённость которых (в километрах) приве- дена в таблице. A B с D E F A 1 5 15 B....
ExDragon
18.03.2023 02:46
Задание 1. Составление блок-схемы по условию. Даны три отрезка с длинами a, b, c. Составьте алгоритм проверки существования треугольника со сторонами a, b, c. (Воспользуйтесь...
Player57
31.07.2022 00:23
. У исполнителя Альфа две команды, которым присвоены номера: 1. прибавь 1 2. умножь на b(b - неизвестное натуральное число; b ≥ 2) Выполняя первую из них, Альфа...
vikavp2
19.08.2022 16:18
Задание 7. На рисунке приведена файловая структура, содержащая папки и файлы, причём файлы на ней не отображены. Файлов вне папок в корневом каталоге нет. Информация...
Акулинна
22.05.2021 18:29
Отметьте все возможные создания таблиц в документе Microsoft word...
ashkon
16.06.2020 10:11
1. В Excel на листе Если для всех строчек имеющейся таблицы в отдельном столбце рассчитать значения y по формуле: y=x, если 0,4 ≤ x ≤ 0,8 Данные для x брать из...
Kit1gvore
19.10.2022 07:21
2. Имеется строка S=”1234567890”. Чему равно значение S1, если S1 = S[1:2] + S[4: :-1]...
Demians
15.02.2022 01:27
Составьте программу закрашивания клеток поля, отмеченных звездочкой ....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Внимание! Если программа не работает, обновите версию!
function Max(a,b,c:real):=Max(Max(a,b),c);
begin
var (x,y,z):=ReadReal3('Введите три числа через пробел:');
Writeln('Максимальное из чисел равно ',Max(x,y,z))
end.