Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
sofyabelik
21.07.2021 10:27 •
Информатика
Даны 2 прямоугольника с разной площадью. вывести на экран монитора площадь наименьшего.
Показать ответ
Ответ:
ЕгороваАйсена
03.07.2020 02:00
Var a,b:real;
begin
read (a,b);
if (a<>b) and (a>0) and (b>0) then
begin
if (a>b) then writeln (b);
if (b>a) then writeln (a);
end
else writeln ('Неверные площади');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
ikonnikoval
07.05.2022 03:42
Напишите программу, которая по двум данным натуральным числам a и b, не превосходящим 30000, подсчитывает количество натуральных чисел, кратных 10, на отрезке [a,b] . Программа...
tarlaejan12
02.10.2020 23:08
Нормирование показателей делается для того, чтобы … исключить ненужные показатели устранить неоднородность и различия диапазонов изменения у вычисления Для изучения систем...
angelina1504
30.03.2023 14:14
Выбери верный ответ.«Война и мир» — самое весёлое стихотворение.ложноеистинноенельзя однозначно определить прям...
BellaNow
10.03.2020 21:14
В программе КУМИР написать цифры заранее...
saint6928
08.05.2020 10:23
Найдите построением изображение точки s в собирающей линзе...
25000h
07.05.2023 03:30
Расскажите, какие чувства и мысли вызвал у вас рассказ котенок господа бога очень нужно...
ррраша
07.05.2023 03:30
Большее основание равнобедренной трапеции в 2 раза больше меньшего основания. Расстояние от середины большего основания до вершины тупого угла равно меньшему основанию....
mariagrigoryan3
07.05.2023 03:30
Аналіз Арслан- киз ( дівчина левиця )...
Anymarspop
07.05.2023 03:30
Какую роль играла в борьбе курфюрста за Померанию Россия нужно...
Nicalat
06.01.2022 07:41
Дай назви 1,2,3,4 розділ детектив блюмквін здобуває славу...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
read (a,b);
if (a<>b) and (a>0) and (b>0) then
begin
if (a>b) then writeln (b);
if (b>a) then writeln (a);
end
else writeln ('Неверные площади');
end.