5. Используя составной оператор, упростите следующий фрагмент программы: ``` if a>b then c:=1; if a>b then d:=2; ```

Можно упростить данный фрагмент, объединив оба условия в один условный оператор, используя составной оператор: ```pascal if a > b then begin c := 1; d := 2; end; ``` **Разъяснение для школьника:** 1. **Задача:** У нас есть два отдельных условных оператора `if`. Каждый из них проверяет одно и то же условие (`a > b`). Если условие верно, то выполняется присваивание значений переменным `c` и `d`. 2. **Проблема:** Код повторяется, и условие `a > b` проверяется дважды. Это неэффективно и может привести к ошибкам, если, например, условие нужно будет изменить. 3. **Решение:** Используем составной оператор, чтобы объединить оба действия в одном блоке, который выполняется только если условие `a > b` истинно. `begin` и `end` позволяют сгруппировать несколько операторов вместе. 4. **Результат:** Код стал более читаемым, компактным и эффективным. Условие проверяется только один раз, а если оно истинно, то оба присваивания выполняются последовательно. В первом блоке программы дважды проверяется условие `a > b`, что приводит к лишним вычислениям. Если `a > b` истинно, то `c` присваивается значение 1, а затем, при повторной проверке того же условия, `d` присваивается значение 2. Используя составной оператор `begin` и `end`, можно объединить эти присваивания в один блок, который будет выполнен только если `a > b` истинно. Это делает код более эффективным и читаемым.