Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
llboyn
07.11.2022 08:52 •
Информатика
1.напишите программу нахождение максимального среди трёх чисел. 2.вводятся оценки за контрольные работы по и ,выведите на экран молодец,если их сумма равна или более 9,иначе подтянись.
Показать ответ
Ответ:
kakoieshonik
04.08.2020 14:43
PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!
№1
begin
var (a,b,c):=ReadReal3('Введите три числа через пробел:');
Writeln('Максимальное число ',Max(a,Max(b,c)))
end.
№2
begin
var (a,b):=ReadInteger2('Введите две оценки через пробел:');
if a+b>=9 then Writeln('Молодец!')
else Writeln('Подтянись!')
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
марттт
29.11.2020 08:31
Запишите последовательность инструкций, после выполнения которых будет найдена сумма цифр 4-х разрядного числа. Заданное 4-х разрядное число обозначьте - n. Значение...
evazorina1
15.11.2022 06:52
Ходы коня — 2 Конь находится на шахматной доске 8×8. Определите координаты всех клеток, куда можно прийти конём за два хода. Входные данные В двух строках входного...
laravysotskaya
28.12.2021 04:17
Написать программу для расчёта суммы чисел, введённых пользователем. При этом пользователь вводит произвольное количество чисел, а для выхода из программы вводит ноль....
саша2006101
18.10.2020 09:45
5. какие свойства характерны для глиныа) не имеет запаха б) имеет своеобразный запахв) при подсыхании рассыпается г) при подсыхании твердеетд) в воде не набухает е)...
NomaMe927
18.10.2020 09:45
Напиши письмо в программу теленовостей, в котором попроси показать сюжет о животным зимой. докажии что это важно....
elichev3
18.10.2020 09:45
Вспомните древнегреческий миф. чему посвящена изображенная на риснке сцена? где,согласно мифу она происходит? как зовут героя, держащего яблоки? в чем были его обязанности?...
Lisa030105
18.10.2020 09:45
Сравнение: луг, как ситцевый платок. а ещё какие есть сравнения?...
ШаркоВалерия
25.03.2021 16:02
План на тему решение стоглавого собора...
коля856
25.03.2021 16:02
Какое проверочное слово к слову сибирских,проверить первую и...
penguin2517
25.03.2021 16:02
Голосеменные растения в отличии от высших споровых растений,имеют 1 корень 2 листья 3 стебель 4 семена цветки характерны для 1)хвощей 2)папоротников 3)голосеменных...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Внимание! Если программа не работает, обновите версию!
№1
begin
var (a,b,c):=ReadReal3('Введите три числа через пробел:');
Writeln('Максимальное число ',Max(a,Max(b,c)))
end.
№2
begin
var (a,b):=ReadInteger2('Введите две оценки через пробел:');
if a+b>=9 then Writeln('Молодец!')
else Writeln('Подтянись!')
end.