Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Стары
07.03.2022 23:11 •
Информатика
Составьте программу в которой с клавиатуры вводится 3 числа и программа выводит наибольшее из них, а если они равны, то пишет, что равны.
Показать ответ
Ответ:
Alice26the03time2004
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 оценок)
Популярные вопросы: Информатика
lonelyofiory
16.01.2020 01:54
РЕШИТЬ В DEV C++ Задача 1 Ввести число. Если оно чётное, разделить его на 4, если нечётное- умножить на 5. Расчётные данные для самопроверки результата: Входные данные Выходные...
лана2661
21.03.2022 18:56
Як відокремити коментар в тексті програмного коду? *...
anastas25a
18.12.2022 21:24
Вклассе 20 парт.длина крышки парты 110 см, ширина 50 см.сколько нужно краски чтобы покрасить крышки парт,если на 1м в квадрате требуется 100г краски?...
Anna170806
18.12.2022 21:24
Сделать проект про себя? на языке предложений 5...
ostapenkonatasha
18.12.2022 21:24
Очём можно написать в расписке? составьте и напишите расписку, например, о лыжах, коньках ,взятых в спортивной школе...
ElliDiHastua
18.12.2022 21:24
Составьте 5-6 предложений на тему костяное кружево...
navimarik
18.12.2022 21:24
Синтаксический разбор предложения. эта смесь прозрачна и однородна ....
Zizosia
18.12.2022 21:24
Турист проехал на автомобиле 8 ч.со скоростью 74км/ч,а остальную часть пути он преодолел на велосипеде со скоростью 12 км/ч.сколько времени путешествовал турист,если всего он преодолел...
lelchist
18.12.2022 21:24
30 , вопросы об инфракрасном и ультрафиолетовом излучениях. дайте ответы на следующие вопросы: 1.почему они так называются? 2.в каком порядке располагаются инфракрасное, видимое...
Zazoo12365
18.12.2022 21:24
Сочинить сочинение от имени путешественника посетившего город богини афины...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.