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

Подсказки:

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

решение задачи:

var s:integer;
    f,b: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.