Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
mir32
01.09.2022 22:04 •
Информатика
Составить программу в паскаль: с клавиатуры вводятся стороны двух прямоугольников. определить площадь какого прямоугольника больше.
Показать ответ
Ответ:
irina18221
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 оценок)
Популярные вопросы: Информатика
nusaba55
16.01.2023 23:13
Перевести из десятичной системы в двоичную числа : 777,321 и 89...
1232815
14.11.2022 09:17
При блок-схемы изобразите алгоритм вычисления площади прямоугольника. длины сторон вводятся пользователем....
Chempionsyper
14.11.2022 09:17
Написать программу , которая подсчитывает произведение натуральных чисел от 1 до n ....
Олегнорм
27.05.2020 00:23
Дан катет и гипотенуза прямоугольного треугольника. найти периметр этого треугольника паскаль )...
veronikarub
22.11.2022 16:16
Нужна по компьютерному 1100101010101001100010100101010111010010010010010010101001 заранее...
lychik1111
22.11.2022 16:16
Дано четырехзначное число найдите число полученное при прочтении его цифр справно налево...
jokerreal30
14.06.2020 19:48
Опишите переменные для размещения в них: - пола человека (один символ); - целого положительного двузначного числа; -целого положительного трёхзначного числа; -целого положительного...
SonechkaKorean
12.10.2022 11:43
Если кто сможет, . 1)cформировать и вывести на экран массив из 12 элементов каждые два последовательных элемента которого составлены по следующему правилу: 1-ый элемент равен удвоенному...
zcneltyn
21.02.2021 22:36
Всем , как это решить? каждая бактерия делится на две в течение 1 минуты. в начальный момент имеется одна бактерия. составьте блок-схему алгоритма вычисления количества бактерий...
kristinaFro
07.07.2021 17:51
Составить 15 словосочитаний со словами кванторами заранее огромное !...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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
Пример вывода:
Второй больше