Урок 9 Задание 12

УСЛОВИЕ:

Изучите код:

var s:integer;
    f:boolean;
begin
  f := true;
  b := false;
 
  if (f=true) then
    s:=1;
  else
    s:=2;
 
  if (b=false) then
    s:=3;
  else
    s:=4;
end.

-- блоки условий можно переписать более кратко, без использования сравнения = true или = false, с сохранением той же логики работы программы.

Подсказки:
оператор if итак неявно сравнивает значение логического выражения в скобках с true (и принимает решение, какую именно ветку then или else выполнить)
для второго if в коде выше потребуется использование оператора Not.

Ссылка на задание:

Решение:

program U9z12;
var s:integer;
    b,f:boolean;
begin
f := true;
b := false;


  if f then
    s:=1
  else
    s:=2;

  if not b then
    s:=3
  else
    s:=4;
end.