Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
KeeRuSha
06.08.2021 23:37 •
Информатика
Составить программу нахождения максимального из четырёх чисел, вводимых с клавиатуры.
Показать ответ
Ответ:
246741248
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 оценок)
Популярные вопросы: Информатика
Beknazarova02
25.09.2020 06:57
Информация , которую нельзя хранить на внешних носителях ,-это а) запахи б)изображение и звук в) текст . записанный на каком либо языке е) только изображение...
loooowaa
11.03.2022 07:32
Найти количество четных чисел в последовательности чисел.последовательность чисел заканчивается 0.паскаль...
DimkaNevidimka13
28.05.2022 22:54
Какому десятичному числосоответствует двоичный код00100001...
nbibyf2005
06.03.2022 16:03
Лабораторная работа Работа с оболочкой пользователя shellКонтрольные во Какая команда показывает системную дату и время?2. Показать, сколько свободного осталось на дисках.3....
dodmitry
06.03.2022 16:03
Часть 11.Які основні завдання розглядаються в теорії інтерполяції?2.Наведіть порівняльну характеристику методів інтерполяції.3. Поясніть алгоритми методів інтерполяції.4.Чим...
котяточка
28.05.2022 22:54
Как преобразовать монохромное изображение в массив вида__flash const unsigned char bind1 [column*5] ={0b00001100,0b00000000,0b00000000,0b00000000,0b00000001,0b00011100,0b00000000,0b00000000,0b00000000,...
eliseygrid53
29.03.2023 23:38
Дано описание переменных. Выбери верные ответы. var int1, int2: integer; x:string ; F: char; begin ... Имена переменных Типы данных...
dashullya2001
13.05.2020 02:27
Найти сумму чисел 378 и 648 в восьмеричной системе счисления....
svetlanasevasty
04.12.2021 15:30
30 составте таблицей ! оля таня юля ира варили.варенье. две девочки варили из смородины две из крыжовник. таня ира варили варенье из разных ягод. ира и оля тоже варили варенье...
оеавц
14.02.2021 00:37
На 25 г известняка, содержащего 20 % некарбонатных примесей, подействовали 40 г 63 % раствора азотной кислоты. К полученному раствору добавили избыток раствора фосфата калия....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.