Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Amina141002
08.03.2022 06:11 •
Информатика
Написать код в pascal. нужно написать программу в паскале, которая находит наименьшее число из двух введенных. все , , чуваки(
Показать ответ
Ответ:
yuliabler
07.10.2020 17:50
Var
a,b:integer;
begin
writeln('Введите 2 числа: ');
readln(a,b);
if a>b then writeln('Наименьшее число - ',b)
else
writeln('Наименьшее число - ',a)
end.
0,0
(0 оценок)
Ответ:
аджирешка
07.10.2020 17:50
//PascalABC.NET 3.3,сборка 1611 от 06.01.2018
//Внимание! Если программа не работает, обновите версию!
begin
var (a,b):=readinteger2('Введите a,b->');
if a>b then writeln('наименьшее число ',b) else
writeln('наименьшее число ',a)
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Євпак
14.07.2021 08:15
Заполнить одномерный массив случайными числами из отрезка [0,100], состоящих из 10 элементов. найдите размах между наибольшим и наименьшим значением массива...
ольга1723
08.09.2022 07:34
Для чего необходимо осуществлять форматирование текста ? как можно преобразовать текст на этом этапе ?...
dzhusanastasia
03.07.2020 07:49
Аня пересылает своему другу пете по сети файл размером 40 мбайт скорость передачи первой половины составило 256 кбит в секунду сколько времени вы минутах займет перысылка...
Møŝķá56
13.05.2023 16:23
Сделать хоть что нибудь 1)сообщение, записанное буквами 128-символьного алфавита, содержит 130 символов. какой объем информации оно несет? 2). книга состоит из 32 страниц. на...
arturkill12309
17.09.2022 20:47
2.Определите значение, вычисленное в электронной таблице по формуле. ответ отмечу лучшим......
FSoxGy
08.11.2020 09:00
Кону илиндр Кенесфера ауруҮшбұрышты айналдыру аркылы пайдаболған денені тап.1-сурет...
bosssanyawolf
05.10.2020 05:24
Описать формы абстрактного мышления...
Damirka1137
05.06.2022 13:06
Информатика Размер файла при сжатии уменьшился с 15 Кбайт до 2560 байтов. Определите коэффициент сжатия....
kiradawn260
22.12.2021 04:00
Напишите программу в Pascale Ввести последовательность чисел, количество которых заранее неиз-вестно. Признаком окончания ввода последовательности чисел является ввод числа,...
ханито
17.08.2020 03:39
Предлагаемые действия действия для создания папок общего доступа:А) Внесите название файла в поле Имя.B) В меню Файл выберите команду создать папку.С) В списке Поместить папку...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a,b:integer;
begin
writeln('Введите 2 числа: ');
readln(a,b);
if a>b then writeln('Наименьшее число - ',b)
else
writeln('Наименьшее число - ',a)
end.
//Внимание! Если программа не работает, обновите версию!
begin
var (a,b):=readinteger2('Введите a,b->');
if a>b then writeln('наименьшее число ',b) else
writeln('наименьшее число ',a)
end.