Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
anarazeynalova
24.06.2022 06:44 •
Информатика
Составить программу в паскаль: с клавиатуры вводятся стороны двух прямоугольников. определить площадь какого прямоугольника больше.
Показать ответ
Ответ:
chinenko88
21.09.2020 23:26
//Pascal ABC.NET v3.0 сборка 1111
Var
a1,b1,a2,b2,s1,s2:integer;
begin
read(a1,b1,a2,b2);
s1:=a1*b1;
s2:=a2*b2;
if s1>s2 then write('Первый больше');
if s1=s2 then write('Площади равны');
if s1<s2 then write('Второй больше');
end.
Пример ввода:
1
2
3
4
Пример вывода:
Второй больше
0,0
(0 оценок)
Популярные вопросы: Информатика
nastya788rf
24.01.2020 09:03
Составьте программу с условием if. ввести а и в. если авывести на экран либо x,либо y 10...
rrv1803
28.01.2020 21:33
Составьте программу с условием if. ввести а и в. если аменьшев в квадрате, то x=a*под корнем в. иначе y=acosb. вывести на экран либо x, либо y 10...
Krauler1
07.05.2022 20:21
9. какое из чисел является наибольшим? выберите один ответ: a. 1378 b. 9610 c. 5e16 d. 11000012 10. какое из чисел является наибольшим? выберите один ответ: a. 2348 b....
QuAtTro271
24.09.2020 17:30
Монография, набранная на компьютере, содержит 2048 страниц, на каждой страни‐ це 48 строк, в каждой строке 72 символа. для кодирования символов используется кодировка...
danil123456789102
24.09.2020 17:30
Всообщении, записанном с 64 символьного алфавита, содержится 2048 символов. найдите информационный объем этого сообщения (ответ выразить в кбайтах)...
Любимка97
06.07.2021 19:40
Кто тут свеж? ? я всё ещё не понимаю, что означает выделенная часть. ...
odolskij2016
07.04.2023 08:19
1. что такое информация? 2. примеры получения зрительной информации.3. примеры достоверной и недостоверной информации.4. переведи: 512 кбайт = мбайт; 2,7 гбайт = кбайт.5....
шкиль1
22.10.2021 04:38
ответьте какой правильный...
Jelly2005
27.10.2022 00:09
Сжать текст по алгоритму Хаффмана, построив дерево. Рассчитать коэффициент сжатия. Ловко лавируя в ларингологии, лекарь-ларинголог легко излечивал ларингиты. Маланья-болтунья...
DedPool58PavkaPlay
10.04.2021 17:19
Охристая состоит из 256 символов ,Какое количество информации несет 1 символ?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Var
a1,b1,a2,b2,s1,s2:integer;
begin
read(a1,b1,a2,b2);
s1:=a1*b1;
s2:=a2*b2;
if s1>s2 then write('Первый больше');
if s1=s2 then write('Площади равны');
if s1<s2 then write('Второй больше');
end.
Пример ввода:
1
2
3
4
Пример вывода:
Второй больше