>> 8 .

3.3.

,

3.3.4.

, ; false true. , false < true.

, , . .

. , n n.

ans , n .

    ans:=n mod 2 = 0

ans true n false .

    program n_;
        var n: integer; ans: boolean;
    begin
        writeln ('
                ');
        write (' >>');
        readln ();
        ans:=n mod 2=0;
        writeln (' ', n, ' - ', ans)
    end.

, , , , and, or, not.

. , , b, , b, .

program n_7;
    var a, b, : integer; ans: boolean;
begin
    writeln ('
        ');
    write (' , b, >>');
    readln (, b, );
    ans:=(a=b) or (=) or (b=c);
    writeln (' ', , ', ',
        b, ', ', , ' - ', ans)
end.

 

 

@Mail.ru