Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
MCbelko
04.02.2020 04:08 •
Информатика
Составить программу нахождения максимального из четырёх чисел, вводимых с клавиатуры.
Показать ответ
Ответ:
Nekop34
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 оценок)
Популярные вопросы: Информатика
Vera2200
11.11.2020 22:11
Кто шарит в информатики Кто шарит в информатики...
artemdychokp00pti
26.10.2020 00:40
Решить задачу, используя любой цикл (с предусловием, либо постусловием). S=10+(2*x)/3+(3*x)/3+(4*x)/3+⋯+(n*x)/3...
gjvftyGHbgg
29.03.2022 01:30
В каком из условных операторов допущена ошибка? 1. if b=0 then writeln ( ‘Деление не возможно‘) 2. if a:=15 then a=15 3. if a b then max:=a else max:=b 4. if (a b) and (b 0) then...
obuhovasveta
29.03.2022 01:30
3. Розрізняють дві форми структурирозгалуження. Яку з них зображенона малюнку?(Слово є власною назвою: 1. Хибно— слово написати з малої літери,...
AnnLage
09.08.2020 15:06
Напишите программу на паскале ! нужно найти строчку в тексте(в txt файле) с одного или более слов и потом эту строчку нужно разбить на слова в столбик...
Anzelka13
31.07.2020 06:32
Количество различных элементов — 2 Дан список. Посчитайте, сколько в нём различных элементов, не изменяя самого списка. Входные данные Вводится список чисел. Все числа списка...
МитинЗахар
19.04.2022 19:10
Берілген екі тақырыптың бірін таңдап, теңеу, эпитет сөздерін қолданып, жазба жұмысын орындаңыз. Жазба жұмысында сөздердің сөйлемдегі орын тәртібіне мән беріңіз. 1) Қазақ ұлттық...
popygai2
09.01.2023 04:08
Оцените экономико-географическое положение Казахстана ...
егормай
19.05.2020 01:02
Отметьте абиотические факторы, которые могут повлиять на смену экосистемы а) вырубка лесаб) горообразовательные процессыв) нашествие саранчиг) резкое увеличение численности кротовд)...
koshkanet69
09.02.2020 06:29
в окружности с центром в точке О к хорде НТ равной радиус окружности перпидикулярно проведен диаметр MN диаметр MNи хорда НТ пересекаются в точке Е длина отрезка ТЕ равна 7...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.