Войти
Регистрация
Спроси ai-bota
ноди1
04.04.2023 03:45
Напишите функцию , которая вычисляет максимальное из чисел трёх чисел . числа вводятся с клавиатуры . используйте функцию . паскаль . !
Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
Swaggygirl
18.11.2020 07:46
Расположить в порядке возрастания значения арифметических выражений: #*- система счисления (#2- двоичная, #8- восьмеричная, #16- шестнадцатеричная и т.д.) 1) cxxviii...
Лораншу
18.11.2020 07:46
Информационный объем сообщения длинной в 120 символов составляет 75 байт.определите,из какого максимального количества символов может состоять алфавит языка,на котором...
KllaBer
17.08.2021 12:02
(информатика) адрес в которой находятся числа-в которой находится текст-адрес выделенной ячейки-...
Anastasia74926482
23.02.2023 06:05
Какой логической операции соответствует таблица истинности?...
sheykinayulya
30.12.2020 04:37
Найти значения приведенных ниже логических выражений:...
qalaysiz345
26.02.2022 07:10
Для своей игры Айым продумала сценарий и оформила его в текстовом редакторе в виде таблицы...
volkovhavoc
24.09.2022 21:55
Умоляю вас мне зайки 2.Побудуваты таблицу истинности для функции F = (A ∨ B) ∨ (¬ A ∧ С), расписав в таблице каждое действие отдельно....
ПЕДРО12
24.03.2022 23:37
Кто может нарисовать Блок Схему к этой задачки procedure TForm1.Button1Click(Sender: TObject); var a:array[0..9] of integer; i:integer; begin for i:=0 to 9 do a[i]:=StrToInt(memo1.lines[i]);...
lskurs
01.10.2022 15:48
Дан массив из n неотрицательных элементов. Требуется найти максимальный элемент и все четные элементы массива увеличить на него. Элементы вывести по одному решите...
Butuzovapelageya
01.02.2021 00:31
У исполнителя Калькулятор две команды: 1. прибавь 1 2. прибавь 2. Первая из них увеличивает число на экране на 1, вторая — на 2. Сколько различных чисел можно получить...
Ответ:
fhgchh
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 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота