Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
тильняшка5
06.07.2021 09:19 •
Информатика
1.напишите программу нахождение максимального среди трёх чисел. 2.вводятся оценки за контрольные работы по и ,выведите на экран молодец,если их сумма равна или более 9,иначе подтянись.
Показать ответ
Ответ:
оспшро
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 оценок)
Популярные вопросы: Информатика
анн57
03.01.2022 16:23
1. ЗБЕРИ РОЗСИПАНІ БУКВИ І ЗАПИШИ УТВОРЕНІ СЛОВА. АЧОПДВОІД...
Maks170104
24.10.2022 11:33
PASCAL1. Напишите фрагмент программы ветвления: дано число а, если оно меньше 10, то увеличить в 2 раза, иначе уменьшить на 15.2. Напишите фрагмент программы ветвления: даны...
Adriet
18.09.2021 14:09
Выбери правильную команду присваивания. Б:=6; S=6; Б=6; S=:6; S:=6;...
Red4521
09.09.2022 18:59
Выдающиеся пейзажи должны быть учтены и охраняемы как памятники культуры ( человеческой и природной ) . найдите ошибки и напиши правильно...
14света14
15.10.2021 02:32
3. укажіть, яким кольором буде зафарбовано виділений фрагмент у середовищі графічного редактора paint за вибору вказівки очистити а) білим кольором б) кольором, що збігається...
leno4ka48
15.10.2021 02:32
4. укажіть тип графічного редактора, що вбудований у середовище офісних програм, зокрема у microsoft word а) растровий б) векторний в) тривимірний г) фрактальний...
Kurbatovaolga15
15.10.2021 02:32
5. укажіть об’єкти, які є графічними зображеннями а) технічні креслення б) малюнки в) архітектурні ескізи г) текстові документи д) графіки...
yulenkaradosti
17.05.2020 20:17
Слово сатрап с древнеперсидского как хранитель царства . каково значение этого слова сегодня?...
nikolottorres
17.05.2020 20:17
Найдите нод числителя и знаменателя дроби 120/300 и сократите эту дробь....
prostopohelnaxyi
17.05.2020 20:17
Какая письменность была в двуречье?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.