Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
VikaBakevich
31.07.2020 19:48 •
Информатика
Написать программу на языке pascal, которая находит натуральный логарифм максимального из 3 заданных чисел.
Показать ответ
Ответ:
milena7772
08.10.2020 21:19
Var
a,b,c,max:real;
begin
Write('Задайте три числа: ');
Readln(a,b,c);
if a>b then max:=a else max:=b;
if c>max then max:=c;
Writeln(ln(c))
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
celentano1
04.08.2021 18:04
Выпиши пропущенные слова документация является основной каждый компьютерной игры для разработки документации используется ПОЖЕ ДАЛЬШЕ НЕЗНАЮ...
Auyrey03
02.06.2022 03:27
Распишите правильно с дано, решением...
beknurr546ozpknp
02.06.2022 03:27
До властивості Fort не відноситься властивість:а)Color,b)size,c)height,d)anabled...
браинли56
13.04.2020 11:00
1.Алгоритм - это … 2.Какой из документов является алгоритмом? а) Правила техники безопасности. б) Инструкция по получению денег в банкомате. в) Расписание уроков. 3.Стоит...
nilnazarov666
30.07.2020 09:55
1 Адресация в сети Интернет ... 1)своя у каждой организации 2)одинаковая у всех 3)своя у каждой страны 4)своя у каждого континента 2 Числа IP-адреса лежат в диапазоне...
алалайла
09.06.2022 00:46
Какая команда пропущена в данном участке программы отвечающем за поиск минимального элемента массива r:=1; for i:=2 to n do if a[i]...
gurova07
17.12.2022 04:33
У исполнителя Гамма две команды, которым присвоены номера: 1. прибавь 5; 2. умножь на b (b — неизвестное натуральное число; b ≥ 2). Выполняя первую из них, Гамма увеличивает...
vladarzm
25.09.2021 14:54
Прочитайте и ответьте на вопросы...
Xiyneu
28.02.2020 02:18
Напишите функцию sisseastumine(), при запуске которой происходит заполнение двух списков: абитуриенты[], []. Количество элементов в списках ограничивается пользователем...
llopatniseva
01.05.2023 01:28
Напишите программу, которая переводит переданное её целое число (возможно, отрицательное) в восьмеричный код. Используйте процедуру. ---Входные данные--- Входная строка...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a,b,c,max:real;
begin
Write('Задайте три числа: ');
Readln(a,b,c);
if a>b then max:=a else max:=b;
if c>max then max:=c;
Writeln(ln(c))
end.