1) Доказать (путем перебора возможных значений), что для любых величин А, В, С типа Boolean следующая пара логических выражений имеет одинаковые значения (эквивалентны) : (A AND B) AND C и A AND (B AND C). 2) Найдите все трехзначные числа, которые можно представить разностью между квадратом числа, образованного первыми двумя цифрами и квадратом третьей цифры.

Program one;

var

a, b, c, f:boolean;

i, j, k, n:integer;

begin

n:=0;

for i:=0 to 1 do

for j:=0 to 1 do

for k:=0 to 1 do

begin

a: = (i=1);

b: = (j=1);

c: = (k=1);

f: = ((a and b) and c) = (a and (b and c));

if f=true then n:=n+1;

end;

if n=8 then writeln ('доказано')

else writeln ('не доказано');

end.

Program two;

var

i:integer;

begin

for i:=100 to 999 do

if ((sqr (i div 10)) - (sqr (i mod 10))) = i then write (i:4);

end.