Задачи по паскалю , ) 1.Стороны одного прямоугольник равны А и В (вводить
пользователь с клавиатуры). Стороны другого равны С и D
(Вводить пользователь с клавиатуры). Разработайте программу, которая
проверяет прямоугольник на Равенство их площадей. соответствующее
СООБЩЕНИЕ виведить на экран.
2.
В супермаркете объявили акцию. Покупатель, который приобретет за три
покупки товар на сумму, превышающую 1000 грн., получает
дисконтную карту при условии, что стоимость каждой последующей покупки
превышает суммарную стоимость предыдущих.
Составьте программу, которая по стоимости трех покупок определяет,
получит покупатель дисконтную карту и выводит соответствующее
сообщение на экран
3.Даны длины отрезков AB, CD I MN (вводятся с клавиатуры).
Разработайте программу, которая проверяет, могут ли эти три отрезка быть
сторонами треугольника. Соответствующее сообщение выведите на
экран.
4.Дано сторону одного квадрата и площадь другого квадрата
(Вводятся с клавиатуры). Разработайте программу, которая проверяет,
уровне эти квадраты. Соответствующее сообщение выведите на экран.
sashadorosh1953
3
05.12.2020 13:03
1
Другие вопросы по теме Информатика
миранда9
26.07.2019 14:10
ЯнаКорягина
26.07.2019 14:10
Eveliinaa
26.07.2019 14:10
davaispi
10.02.2021 13:14
Gabueva02
10.02.2021 13:18
Aisulu123456
10.02.2021 13:21
Mashavyd
10.02.2021 13:22
HELP2606
10.02.2021 13:23
Поли322
10.02.2021 13:27
Популярные вопросы
- Вычислите площадь фигуры ограниченной линиями: a) f(x) = 1-x ^ 2, y=0; б) f([x)=x...
3 - На координатной плоскости, используя шаблон графика функции y=x? построить графики:...
3 - 1.Составьте вопросы, к названию племени, именам, временным периодам, основываясь...
1 - Менің атым қожа кейіпкерлер ...
2 - Решите задания по математике раздел координаты и векторы дали 30 минут...
2 - Чему равен заряд ядра и количество электронов в атоме? * нулюединицепорядковому...
1 - Спишите предложения. Найдите односоставные предложения с главным членом - подлежащим....
2 - Вычислить все неизвестные углытрейгольника...
2 - Упражнение 2 Образуйте прилагательные при суффиксов Оват-, -еват-: белый, крючок,...
1 - Главное причины ухудшения положения крестьян в 14 веке...
3
#1:
begin
var a,b,c,d:real;
write('Введите стороны A B прямоугольника: '); readln(A,B);
write('Введите стороны C D прямоугольника: '); readln(C,D);
write('Площади прямоугольников ',(A*B = C*D)? 'равны':'не равны');
end.
#2:
begin
var a,b,c:real;
write('Введите стоимость трёх покупок: '); readln(A,B,C);
write('Дисконтная карта ', ((B>A) and (C>A+B))? 'получена':'не получена');
end.
#3:
begin
var AB,CD,MN: real;
write('Введите длину отрезков AB,CD,MN: '); readln(AB,CD,MN);
write('Отрезки ',(((AB+CD)>MN) and ((AB+MN)>CD) and ((CD+MN)>AB))? 'могут':'не могут', ' быть сторонами треугольника');
end.
#4:
begin
var A,B:real;
write('Введите сторону первого квадрата: '); readln(A);
write('Введите площадь второго квадрата: '); readln(B);
write('Площади заданных квадратов ', (A.Sqr=B)? 'равны':'не равны');
end.