Задача 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, с сохранением той же логики работы программы.

program project1;

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;

  readln();
end.