Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Андрей0126
26.05.2022 19:16 •
Информатика
Написать функцию maxfrom3; minfrom3 она должна возвращать максимальное 3 целых чисел в первом случае и возвращать минимальное 3 целых чисел во тором случае это выполняется в паскаль абс
Показать ответ
Ответ:
tflash191
19.08.2020 23:18
//PascalABC.NET 3.2 сборка 1318
function MaxFrom3(a,b,c:integer):integer;
Var
max:integer;
begin
max:=a;
if max<b then max:=b;
if max<c then max:=c;
MaxFrom3:=max;
end;
function MinFrom3(a,b,c:integer):integer;
Var
min:integer;
begin
min:=a;
if min>b then min:=b;
if min>c then min:=c;
MinFrom3:=min;
end;
0,0
(0 оценок)
Популярные вопросы: Информатика
pomoch21213
30.12.2022 05:59
Классификация информационных систем, используемых в юридической деятельности....
vladaandreeva2
11.02.2021 02:25
6. Открой секрет Черного ящикавход май save 123 принтер ми12лдвыход мй sv питр Это должно быть в виде таблицы Где принтер там с низу питр написано....
vlada410
19.01.2020 11:02
Program z2; Procedure horline (Len: integer; s: char); Var i: integer; Begin For i:=1 to Len do write(s); Writeln; end;begin Horline (10, - ); Horline (20, * );...
bodik228
16.12.2022 12:30
решить 8 задач фото оставлю...
KARYCY798
15.06.2021 21:22
5. Используя суждения заполни таблицу Рыжеволосый мальчик Семикилограммовый груз Фарфоровый сервиз Объект Свойство Величина Значение величины Должно быть в виде...
синегривка2
11.11.2022 05:00
9. Сделайте умозаключение. a) Клички животных – имена собственные. Имена собственные пишутся с большой буквы. Значит b) Все птицы имеют клюв. Воробей – птица.Значит...
20031408
23.05.2023 12:37
Вариант 1 Напишите, что печатает следующая программа. Program P1; Var a, b, c, d: integer; Function func (x,y,z;integer):integer; Var W: integer; Begin W:=x+y+z;...
Leonarda11
25.11.2020 05:06
Нужно отыскать наименьшее из возможных число кое при делении на 2, 3, 4, 5, 6, даст остатки соответствующие 1,2,3,4,5...
romakim02kum
30.11.2020 02:02
Разница между кодированием графичеcкой информации и графическим кодированием?...
AsyaFilipova
23.04.2022 11:17
сделать 2 задачи по информатике с дано и решение Каков информационный вес сообщения в Кбайтах: «Я изучаю информатику дистанционно!», закодированного с использованием...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
function MaxFrom3(a,b,c:integer):integer;
Var
max:integer;
begin
max:=a;
if max<b then max:=b;
if max<c then max:=c;
MaxFrom3:=max;
end;
function MinFrom3(a,b,c:integer):integer;
Var
min:integer;
begin
min:=a;
if min>b then min:=b;
if min>c then min:=c;
MinFrom3:=min;
end;