//Сделал Лугачев Кирилл //Специально для //Все данные вводятся с клавиатуры 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.
ответ 51. И так, вам ввели начальные значения переменных. Вас требуют проверить два условия. Если результатом его проверки будет true(т.е. истина, а истина в данном случае будет, только если оба условия будут истинными) то вы должны выполнить следущие действия: x=3*a+2*b+c, если результатом проверки логических выражений будет false(т.е. ложь, а ложь в данном случае будет при условии, что хотя бы 1 из данных логических выражений ложное, ну или оба выражения ложные), то тогда вы выполняете это: x=5*a-b+c. И так, выполняем алгоритм 10>5 и 5>6? Нет, т.к. второе условие не выполняется. Значение логического выражения false, значит выполняем действия по ветке else(иначе), x=5*10-5+6=51 Всё. На экран выведится число 51. маловато для такого развёрнутого объяснения, так что отметьте хотя бы как лучший ответ \_(•_•)_/
