Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
gopd2
22.04.2023 23:57 •
Информатика
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 оценок)
Популярные вопросы: Информатика
tat2119
16.02.2021 03:37
Создать проект, который позволяет найти значение выражения y=5/(х — 7) (х + 3) (х вводится с клавиатуры) с проверкой нулевых значений знаменателя 1. Опишите математическую модель...
asylkhanova05
13.12.2022 07:51
Что означает знак | в информатике?...
antonishyna1997
05.06.2021 10:11
Создайте программу, которая отображает обе цифры с одним и тем же числом между двузначными числами до N. Программа Python, цикл For. например 34 ответы 11 22 33...
Ритаforever
18.07.2021 07:59
До основних властивостей поля реляційної БД належить: розмір, формат, підпис, ім я,......
Анжела1411
27.12.2022 12:37
Санның коды берілген).2-мысал негізінде «Санның үлкені» тақырыбында жоба жұмы-if max b then max:=b;if max c then max:=C;4.32-сурет. Модульдік ортадағыTM-wоні .ен-генПрактикалық...
Анастасия1708035
03.06.2020 01:34
Как оплатить сумму в S тенге с наименьшего количества монет номиналом К,Р и N тенге?Составь блок-схему выполнения задания,составь программу.S,K,P и N-целые числа....
Диана135793
08.02.2023 12:18
Дана блок-схема. Какое значение будет иметь z на выходе, если 56?НачалоВвод xZ:=1i=0Z= (x+x/2)/2i=i+1НетКонец(промежуточные вычисление не округляйте; ответ округли до десятых)ответ:ОТВЕТИТЬ...
kravchenko1712
06.01.2020 12:14
ть зробити. я ів ть зробити. я ів >...
Сива11
06.01.2020 12:14
Решите уравнение: а)х-4 5/7=2 3/7; b) (12 5/13+y)-9 9/13=7 7/13. ...
УизлиТиСпирс
06.01.2020 12:14
Почему в предложении Всё, спит на острове, одна белая ночь сияет после всё и спит на острове ставится запятая?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.