Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
MrPuk
29.03.2021 23:13 •
Информатика
Даны значения трёх действительных переменных a,b и c. найти наибольшее значение из a,b и c.
Показать ответ
Ответ:
фарангиз5
03.10.2020 09:54
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.
var a,b,c:real;
begin
readln(a,b,c);
if a> max(b,c) then writeln(a)
else if b> max(a,c) then writeln(b)
else writeln(max(a,c))
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Рома67463
06.05.2020 17:29
Запиши программу на языке Паскаль для: y = 0, если x≤0 x, если 0 x ≤ 1 (y:3:0) x^2, если x 1. Запусти программу и введи значение x=15.Число выведенное на экран...
Karakulova2004
08.02.2023 21:33
Перечислите основные этапы трехмерного моделирование? ...
Nurlan2010
06.05.2021 10:56
Распечатать квадраты чисел, находящихся в диапазоне от 0 до 1 с шагом 0,2....
Ломастер254630
15.04.2021 04:12
Что должно быть у каждого алгоритма? (ответ из нескольких частей)...
3754456988561
19.12.2021 02:33
Python, задачаСегодня утром жюри решило добавить в вариант еще одну задачу. Очень Легкую Задачу. ответственный секретарь Оргкомитета напечатал ее условие в одном...
KaRRRtavbly
20.03.2021 03:59
Что может рассматриваться в качестве фрагмента текста...
Александра894312
12.03.2021 15:26
Запиши программу на языке Паскаль для: y=⎧⎩⎨⎪⎪0,еслиx≤0x, если01. (y:3:0)Запусти программу и введи значение От...
InolaRomanova
05.01.2021 14:26
Не могу решить кроссворд 1)Ввод, сохранение в цифровом виде и обработка видеосигнала. 11 букв 2)Устройство, с которого можно принимать и сохранять на компьютере...
Qeasdzxcrfv
18.03.2023 12:15
Определить, принадлежит ли точка g отрезку [a;m]. var a,m,g:real; begin write( = ); readln( ); write( m= ); readln(m); write( g= ); readln( ); if (g =a) and (g...
yarikser4
26.02.2023 05:21
решить Информатика - алгоритмы....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a,b,c:real;
begin
readln(a,b,c);
if a> max(b,c) then writeln(a)
else if b> max(a,c) then writeln(b)
else writeln(max(a,c))
end.