Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Galinachlen
10.08.2022 14:31 •
Информатика
Напишите программу находящую максимальное из четырех чисел (используйте процедуру для поиска максимального из двух чисел)
Показать ответ
Ответ:
Violettik2006
23.06.2020 20:27
Var
a, b, c, d: integer;
function max(i1, i2: integer): integer;
begin
if i1 > i2 then max := i1 else max := i2;
end;
begin
read(a, b, c, d);
writeln(max(max(max(a, b), c), d));
end.
не помню как процедуры писать, но с функциями даже удобнее
0,0
(0 оценок)
Ответ:
P0SEYD0N
23.06.2020 20:27
Program ufhg;
uses crt;
var a,b,c,d, m: integer;
begin
readln(a,b,c,d);
m:=a;
if(b>m) then m:=b;
if(c>m) then m:=c;
if(d>m) then m:=d;
writeln(m);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
иоапгрдгоп
10.08.2021 02:45
Укажите за какие действия отвечают пиктограммы, обозначенные на рисунке....
madina20042004
18.12.2020 21:04
Действия производимые с информацией для достижения поставленной цели...
Mmamagadzhieva
27.02.2020 04:11
Ануар решил пополнить счёт сотовой связи. ануару составить правильный алгоритм...
irina030270
26.07.2022 03:35
Руслан хотел поделиться впечатлениями о летнем путешествии с друзьями,но забыл,где именно он сохранил фотографию байкал.jpeg .ниже представлена файловая структура диска e: e:...
alkofner
26.07.2022 03:35
Укажите устройства ввода информации: микрофон, документ-камера,сканер, наушники,мышь, монитор,видеопроектор,колонки...
nikitka199821
26.07.2022 03:35
Ненаправленная линия(без стрелки) связывающая вершины графа...
ffhddjkk
26.07.2022 03:35
Цикл while написать программу которая для любого числа n выводит последовательно на экран все его цифры начиная с конца(разряда единиц) (! 20 ! )...
benleo2001
26.07.2022 03:35
Решил пополнить счёт сотовой связи. ануару составить правильный алгоритм. № команда 1 a) проверьте и подтвердите номер телефона 2 b) введите номер телефона 3 c) выберите оператора...
XWaeRr
13.04.2022 14:01
4) выберите шрифт с засечками a) arial; b) monotype corsiva; c) dotum; d) times new roman...
Ангелиночка02
23.08.2022 06:03
На острове живут два племени правдолюбцы и лжецы. правдолюбцы всегда говорят правду а лжецы всегда лгут. путешественник,приехавший на остров нанял жителя острова в проводники.они...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a, b, c, d: integer;
function max(i1, i2: integer): integer;
begin
if i1 > i2 then max := i1 else max := i2;
end;
begin
read(a, b, c, d);
writeln(max(max(max(a, b), c), d));
end.
не помню как процедуры писать, но с функциями даже удобнее
uses crt;
var a,b,c,d, m: integer;
begin
readln(a,b,c,d);
m:=a;
if(b>m) then m:=b;
if(c>m) then m:=c;
if(d>m) then m:=d;
writeln(m);
end.