Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
глупыйлолик34
13.07.2022 13:26 •
Информатика
Даны три неравных числа, вывести меньшее из них(программа).
Показать ответ
Ответ:
coolbembel
05.10.2020 18:37
Var
a,m:real;
Begin
Write('a = ');
ReadLn(m);
Write('b = ');
ReadLn(a);
if a<m then m:=a;
Write('c = ');
ReadLn(a);
if a<m then m:=a;
WriteLn('Меньшее из данных чисел: ',m);
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
julia4171822
20.08.2022 05:00
Вычисли значение математического выражения в MS Excel: (97+102)−2(79:(5+19)). (ответ округли до сотых)...
DenJeys
18.06.2021 05:29
2.82 под цифрой 4, сделайте...
Nurayka269
02.11.2020 06:12
Какова мощность алфавита, с которого записано сообщение, содержащее 4096 символов, если объём сообщения составляет 2,5 килобайт....
Ritochkа
16.07.2022 18:49
Что обеспечивает инкапсуляция? Выберите верные варианты ответа: 1) защиту полей класса от несанкционированных изменений 2) создание многих копий объектов 3) сокрытие всех полей...
АндрейЯсийчук
14.03.2022 20:36
Потянет ли такой ноутбук Sims 4? Дисплей: 15.6 IPS FHD (1920*1080) процессор:Intel Core i5 1035G1 1.0ГГц, память: 4GB жесткий диск: 256GB SSD + 1000GB, видеокарта: Intel HD Graphics...
Макароныпофлотски
10.09.2022 19:03
Найти значение f, принимающей значения целого типа:f:= 2·x,если f −2 или x 2,То x=−3·xв противном случае вывести значение f....
vk20001
08.07.2021 01:03
Решите систему уравнений Y=x^2+x+41,при 0 х 4 Y=lx^3-2xl в других случаях...
rsobal45gmailcom
28.11.2022 12:58
Розташуйте події у хронологічній послідовності: а) початок повоєнного голоду в Україні;б) випуск золотих червонців;в) завершення грошової реформи в СРСР;г) початок І п’ятирічки;д)...
Keyanplay1
17.03.2021 05:15
З’ясуйте ознаку за якою об’єднані в один ряд дані терміни та викресліть зайвий. 1) а)Нітроген, Гідроген, Флуор, Натрій. б) Магній, Карбон, Алюміній, Ферум....
serg197200
07.06.2021 19:36
Подготовить сообщение по теме гражданская лирика поэзии М. В. Ломоносова...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a,m:real;
Begin
Write('a = ');
ReadLn(m);
Write('b = ');
ReadLn(a);
if a<m then m:=a;
Write('c = ');
ReadLn(a);
if a<m then m:=a;
WriteLn('Меньшее из данных чисел: ',m);
End.