Для какого из чисел ложно высказывание: не (число > 60) или (число нечётное)? !

ответ:

объяснение: не(не(число< =60) или (число четное)) 

не((число> =60) или (число четное))

(число> =60) или (число четное) = ложное

1) 43 

(43> =60) или (43 четное) 

(ложное) или (ложное) =  ложное

2) 60

(60> =60) или (60 четное) 

(истинное) или (истинное) =  истинное

3) 71 

(71> =60) или (71 четное) 

(истинное) или (ложное) =  истинное

4) 84

(84> =60) или (84 четное) 

(истинное) или (истинное) =  истинное

ответ: 1) 43

типо как то так

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.

var n, i, k, a: integer;

begin readln(n); k : = 0; for i : = 1 to n do begin readln(a); if trunc(sqrt(a)) * trunc(sqrt(a)) = a then k : = k + 1; end; writeln(k); end.