Здравствуйте
(150, 200)
(130, 150)
(180, 210)
(200, 150)
Всего запусков будет 4
Объяснение:
все очень просто например возьмем правильный запуск
(150, 200)
x=150 y= 200 теперь подставляем в систему место y 200 а вместо x 150
теперь получается 200>=150 and 150<=200 получается что система выдаст да . В этом задание простой принцип подставлять числа которые даны место букв. При этом если одна часть не правильна например возьмем
(190, 140)
x=190 y=140 подставляем 140>=150 and 190<=200 .
140>=150 неверно
190<=200 верно но все ровно ответ выдается НЕТ т.к одна часть системы не равна
//Специально для
//Все данные вводятся с клавиатуры
program Sravnenie;
var
a, b: integer; // Стороны 1-ого прямоугольника
d, c: integer;// Стороны 2-ого прямоугольника
S1, S2: integer; // Площадь
buf: integer;// Если площадь 1-ого будет меньше 2-ого
//поменяем местами,что бы избавиться от минуса
razn: integer; // Разница 2-ух площадей
begin
Write('Введите стороны 1-ого прямоугольника: ');
Readln(a, b);
Write('Введите стороны 2-ого прямоугольника: ');
Readln(d, c);
S1 := a * b; //Площадь 1-ого
S2 := d * c; //Площадь 2-ого
if S1 < S2 then
begin
buf := S1;
S1 := S2;
S2 := buf;
end;
razn := S1 - S2;
Writeln('Площадь 1-ого больше площади 2-ого в - ',razn, ' раз');
end.