F1 = ( ¬X ∨ Y ) ∧ ( ¬X ∨ ¬Y )
F2 = ( X ∨ Y ) ∧ ( ¬X ∨ Y )
Номер 4
program Other;
var
a,b: integer;
begin
a:=5;
b:=0;
if a = 1 then
{Next action...}
else
begin
b:=b+a;
a:=a-1;
end;
end.
begin
var a := 1234567;
var s := 0;
while a > 0 do
begin
s += Ord(a mod 10 mod 2 = 0);
a := a div 10;
end;
s.Println;
end.