1)доказать (путем перебора возможных значений), что для любых величин а, в, с типа boolean следующая пара логических выражений имеет одинаковые значения (эквивалентны): (a and b) and c и a and (b and c). 2)найдите все трехзначные числа, которые можно представить разностью между квадратом числа, образованного первыми двумя цифрами и квадратом третьей цифры.

1. var   a, b, c, f: boolean;   i, j, k: integer; begin   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));               writeln('a=', a, ', b=', b, ', c=', c, ', результат сравнения: ', f)           end end. результат выполнения программы: a=false, b=false, c=false, результат сравнения: true a=false, b=false, c=true, результат сравнения: true a=false, b=true, c=false, результат сравнения: true a=false, b=true, c=true, результат сравнения: true a=true, b=false, c=false, результат сравнения: true a=true, b=false, c=true, результат сравнения: true a=true, b=true, c=false, результат сравнения: true a=true, b=true, c=true, результат сравнения: true 2. var   a, b, c: integer; begin   for a : = 1 to 9 do       for b : = 0 to 9 do           for c : = 0 to 9 do               if sqr(10 * a + b) - sqr(c) = 100 * a + 10 * b + c then writeln(a, b, c) end. результат выполнения программы: 100 147

Держи пока что первую, сейчас вторую сделаю!  

program xxx;

    var i, n : integer;

                      s : real;

                    a : array [1..20] of real;

begin

  writeln('введите размерность массива n=');

  readln(n);

  write('введите элементы массива а: ');

  for i: =1 to n do

        readln(a[i]);

  writeln('исходный массив а: ');

  for i: =1 to n do

        writeln(a[i]);

  s: =0;

  for i: =1 to n do

      if a[i] mod 2 = 0 then s: =s+a[i];

  writeln('сумма четных элементов =', s);

  readln

end.