Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Янепоняла
24.03.2021 02:28 •
Информатика
Составьте программу в которой с клавиатуры вводится 3 числа и программа выводит наибольшее из них, а если они равны, то пишет, что равны.
Показать ответ
Ответ:
kirillm3
19.08.2020 12:02
Вот решение, всё элементарно:
Var a,b,c:integer;
Begin
Readln(a,b,c);
if (a>b) and (a>c) then Writeln(a);
if (b>a) and (b>c) then Writeln(b);
if (c>a) and (c>b) then Writeln(c);
if (a=b) and (b=c) then Writeln('Числа равны');
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
lenaglukhova20
30.05.2021 01:32
Определите растровое изображение из предложенных вариантов...
СофияМ1
03.07.2020 22:55
I ) ответь на во Как в компьютере происходит распознавание символов, введенных с клавиатуры? 2. Какие существуют таблицы кодировки символов в памяти ПК? В чем их отличие?...
fedarmo
02.08.2020 16:23
Найди A,B,C,D, если изначально: A=2,B=7,C=6,D=16. ответ:...
ksenia1234567890123
30.09.2022 16:33
Самостоятельная работа по информатике в паскале 10 класс...
Нидл
05.11.2020 07:31
Выберите короткий рассказ, который вам нравится. изложите его содержание в виде интерактивной презентации....
maxim1213
26.09.2021 05:34
Сколько байт содержится в одном мегабайте информации...
89994709040
11.01.2020 17:02
Сочинение на тему: если бы у меня был робот...
hhhhyd
11.01.2020 17:02
Втечение двух недель человек заключает пари на скачках. в первый день он делает ставку в 1 фунт и проигрывает. во второй день, чтобы возместить свой проигрыш, он делает...
witin2394j
13.08.2021 09:42
Решить : информационный объём текста книги, набранный на компьютере с использованием кодировки unicode,-128 килобайт. определить количество символов в книги....
Daliloshka
13.08.2021 09:42
Введите три числа a,b,c. найдите сумму двух наибольших из них....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Var a,b,c:integer;
Begin
Readln(a,b,c);
if (a>b) and (a>c) then Writeln(a);
if (b>a) and (b>c) then Writeln(b);
if (c>a) and (c>b) then Writeln(c);
if (a=b) and (b=c) then Writeln('Числа равны');
End.