Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Andreyp2881
26.04.2021 16:25 •
Информатика
Составить программу нахождения максимального из четырёх чисел, вводимых с клавиатуры.
Показать ответ
Ответ:
снегурочка98
10.08.2020 08:16
Var
A,B,C,D:integer;
Begin
Write('Введите четыре целых числа: ');ReadLn(A,B,C,D);
if A < B then A:=B;
if A < C then A:=C;
if A < D then A:=D;
WriteLn('Max = ',A);
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
Fire4ik1
08.09.2022 23:57
. Программа. По заданным 4-ем элементным целым массивам a, b, c вычислить: max (a[ i ]+b[ i ]), max (a[ i ]+c[ i ]), max (b[ i ]+c[ i ])...
eleukenovadinara
23.09.2021 08:57
Требуется определить, бьет ли ферзь, стоящий на клетке с указанными координатами (номер строки и номер столбца), фигуру, стоящую на другой указанной клетке. входные...
Mallony
02.01.2023 12:50
Задача 3. ( ) Вывести на экран сообщение «Привет, друг» ...
0000094
02.03.2022 21:22
Язык программирования Python Напишите программу, определяющую по координатам точки, в какой четверти системы координат она находится. (вспомните, что в 1 четверти...
freezcat
22.04.2020 00:50
Образуйте форму РОДИТ.ПАД. МНОЖ.ЧИСЛА от следующих существительных, поставив ударение: аэропорт, бант, договор, казак, квартал, конус, новость, местность, порт, почерк,...
dlyaigrmoih1
01.10.2021 07:46
Задание 1. Выберите две страны (ФРГ, Франция, Великобритания, Италия) для сравнения, охарактеризуйте особенности современного экономического развития выбранных стран....
milana0512
09.12.2022 20:13
главное отличие между основными и переходными климатическими поясами? а) разные пояса атмосферного давления. б)воздушными массами в)температурой воздуха...
nikdaniil04
22.03.2021 14:13
Тело массой 500г свободно падает с высоты 10 м Определить Кинетическую энергию тела в момент удара о землю? (Решить через закон сохранения энергии)...
meizum2luba
06.08.2022 16:01
Put the verbs into correct forms. 1. Mary (wait) for me when I arrived home. 2. I (walk) along the street when I heard terrible cry. 3. What you (do) at this time...
Маргольц
06.08.2022 16:01
1. В чём противоречивость образа светлого будущего в четвертом сне Веры Павловны 2. В чём заключается, по-вашему, гражданский подвиг Н.Г.Чернышевского?[Роман Что делать?]...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
A,B,C,D:integer;
Begin
Write('Введите четыре целых числа: ');ReadLn(A,B,C,D);
if A < B then A:=B;
if A < C then A:=C;
if A < D then A:=D;
WriteLn('Max = ',A);
End.