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

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

Изучите код:

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

решение

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

  if (f= not false) then
    t:=1
  else
    t:=2;

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