Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Арте20
22.06.2021 08:45 •
Информатика
Какую программу написать чтобы найти максимальное из чисел a,b,c ? минимльное из чтырёх чисел?
Показать ответ
Ответ:
Иван7962
07.10.2020 19:32
Program abc;
var a, b, c, max: integer;
begin
read (a, b, c);
if a>b then
a:=max
else
b:=max;
if c>max then
c:=max;
writeln ('Максимальное число__', max);
end.
Второй в один вопрос еще))0).
0,0
(0 оценок)
Популярные вопросы: Информатика
катя4876
04.05.2021 00:43
Составить структурную схему вычисления значений функции y=e^-3cosx-7.1a^2*x a=2(1)6; x=1(0.5)2.5...
stf74149
02.06.2023 16:02
Составить структурную схему вычисления значений функции y=e^-cos-7.1a^2*x a=2(1)6; x=1(0.5)2.5...
Margarita12071
18.01.2023 15:33
Ошибка с Windows 10, когда я нажимаю на одну из Windows происходит загрузка, после чего опять открывается это окно...
khudobeidiana
27.06.2020 02:01
Туристическое агентство продаёт путёвки во Францию семейным парам. Молодожёнам предоставляется скидка 5%, если же среди молодожёнов есть хотя бы один, вступающий в брак...
Azalia1324
15.05.2021 06:17
Дана матрица размера N × M и целое число K (1 ≤ K ≤ M ). После столбца матрицы с номером K вставить столбец из единиц. Есть готовая программа но там есть недочёт Random...
dayana13112007
23.06.2020 22:28
Переведите из восьмеричной системы счисления в десятичную число 1101...
tyranball
12.10.2021 13:26
Переведите, , из паскаля в кумир uses crt; var i: integer; mas: array [1..10] of integer; begin write( ishodniy massiv: ); for i: =1 to 10 do begin mas[i]: =random(900)+101;...
дженни34
12.10.2021 13:26
Составить программу нахождения произведения всех чисел от 200 до 500 + блок схема...
vipmurlyan
18.09.2020 07:14
От разведчика была получена следующая шифрованная радиограмма,Кирилл шифрует слова, записывая вместо каждой буквы её номер в алфавите (без пробелов). Номера букв даны...
Sofiko20017
30.08.2021 23:38
сделать информатику, только...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a, b, c, max: integer;
begin
read (a, b, c);
if a>b then
a:=max
else
b:=max;
if c>max then
c:=max;
writeln ('Максимальное число__', max);
end.
Второй в один вопрос еще))0).