Program Main;
var a,b,c,N:integer;
begin
writeln('Введите N');
read (N);
for a:=1 to N-1 do
for b:=a+1 to N-1 do
for c:=1 to N-1 do
if a*a+b*b=c*c then
writeln (a:5,b:5,c:5)
end.
Выполните

Не нечетное число - это четное число, поэтому:

не(x - нечетное) равносильно (x - четное)

x>=10 - в данное неравенство входят все x из промежутка [10;+oo), т.е на данном промежутке неравенство истинно. А ложно оно соотвественно на (-oo;10). Логическое "не" инвертирует данное неравенство( истина становится ложью, и наоборот), значит:

не(x>=10) равносильно (x<10), и промежуток x: (-oo;10)

В итоге:

не(x - нечетное) и не(x>=10)<=>(x - четное) и (x<10)

Полученное неравенство будет истинно для четных x из промежутка (-oo;10).

Наибольшее четное число из (-oo;10): 8

ответ: 8

Var i, n, k, sum:integer ;

A:array [1..100]of Integer ;

Begin

//Запрашиваем кол-во элементов массива

Write (' N=') ;read (n) ;

//Заполняем массив случайными значениями от 0 до 25

// И выводим его на экран

For i:=1 to N do begin

A[i]:=random(26);

Writeln (' A[', i, ']=', a[i]) ;

End;

//Обнуляем переменные

K:=0;sum:=0;

//В цикле находим элементы, которые больше 8

//и меньше 13,считаем их кол-во и сумму

For i:=1 to N do begin

If((a[i]>8) and(a[i]<13)) then begin

K:=k+1;

Sum:=sum+a[i];

End;

End;

//Ввводим результат на экран

Writeln(' Кол-во элементов больше 8 и меньше 13:',k);

Writeln(' Их сумма ', sum) ;

End.

Объяснение:

Строчки с двумя слешами в программу можешь не писать, это я сделал, для объяснения программы