12 задача 9 урок

12 задача 9 урок

Изучите код:

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

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

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

решение

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