Записать суждения средствами алгебры предикатов:

Все металлы – проводники электричества.
Ни один металл не является неэлектропроводным.
Ни один хищник не является пернатым.
Все хищники являются не пернатыми.
Ни один ядовитый гриб не является съедобным.
Все несъедобные грибы являются ядовитыми.
Некоторые высказывания не являются верными суждениями.
Некоторые ложные суждения являются высказываниями.
Все директора являются руководителями предприятия.
Ни один не руководитель предприятия не является директором.
Все львы – хищники.
Некоторые нехищники – не львы
Все квадраты – ромбы.
Некоторые ромбы – квадраты.
Все квадраты – равносторонние прямоугольники.
Все равносторонние прямоугольники – квадраты.
Некоторые поэты – гениальные.
Некоторые гениальные люди – поэты.
Некоторые вещества – проводники.
Некоторые вещества не являются не проводниками (диэлектриками).
Некоторые подлежащие не являются существительными.
Некоторые подлежащие являются не существительными

100. Назовите все отличия функций от процедур?
а) функция передает в точку вызова скалярное значение, а процедура - нет
г) имя функции может входить в выражении как операнд

101. С каких параметров происходит передача данных из главной программы в подпрограмму?
а) фактических

102. Выберите неправильную форму записи оператора цикла
в) WHILE I<5 TO BEGIN I:=I+1; WRITELN(I); END

103. Какое выражение обеспечивает генерирование случайных чисел в диапазоне [4,10[
а) 4+RANDOM(6)

104. что означает FV в команде read(FV, x1, x2,..., xn) в Паскале ?
б) переменную, связанную с файлом, откуда берется информация
г) первую переменную величину для ввода информации

105. Каким окажется результат выполнения следующего фрагмента кода X:= 5; Y:= X+1; Writeln('Х=',X, Y=',Y);?
в) X=5 Y=6

106. Какое значение примет переменная Х после выполнения команды X:=SQR(4)/2*2?
в) 16

107. Каким окажется результат выполнения следующего фрагмента кода: X:= 5; Y:= 8; Т:= Х; X:=Y; Y:= T; Writeln('Х=', X, Y=',Y);?
б) X=8 Y=5

108. Логическое выражение
(N Mod 10 Mod 2) Or (N Div 10 Mod 10 Mod 2 = 0) Or (N Div 100 Mod 2 = 0)
должно принимать значение TRUE тогда и только тогда, когда истинно высказывание
Выражение записано с ошибкой
г) в трёхзначном натуральном числе хотя бы одна чётная цифра

109. Цикл в фрагменте программы P := 4; Repeat P := P * 0.1 Until P < 0.0001; будет исполнен?
г) 5 раз

110. Значение R после выполнения операции логического присваивания
R := Not (A Or B Or (X > 2) And (Y < 0))
при A = False, B = False, X = 3, Y = 2 будет равно
в) True

111. Значения переменных a и b после выполнения следующих действий
a := 15 Div (16 Mod 7); b := 34 Mod a * 5 - 29 Mod 5 * 2;
будут равны
г) a = 7, b = 22

112. Во фрагмент алгоритма, печатающий все двузначные числа, в записи которых есть цифра N или сумма цифр которых равна самим числам, нужно вписать логическое выражение
Объяснение конечно еще то
г) ((P1 = N) Or (P2 = N)) And (S = K)

113. Тело цикла в программе a := 1; b := 1; While a + b < 8 Do begin a := a + 1; b := b + 2 end;
выполнится?
б) 2 раза

114. Задана строка St (см Фрагмент алгоритма)
??? где фрагмент ???
115. Задан двумерный массив X[1..n, 1..m]. Процедура
??? где Процедура ???
116. Задан двумерный массив X[1..n, 1..m]. Функция возвращает значение
??? где Функция ???
117 = 110

118. В каком фрагменте программы подсчитывается сумма элементов квадратной матрицы, расположенных выше главной диагонали?
а) For i:= 1 to n do
For j:= 1 to n do
If i<=j then
S:=s+a[I,j];

Я так понимаю, ты пишешь программу, которая говорит, сколько тебе лет))
Во-первых, её можно упростить. Во-вторых, ты в одном месте не поставил ;. Напишу примерный вид программы, которая должна работать:

Program Vozrast;
var i: integer;
begin
writln ('Введите возраст: ');
readln(i);
if (i < 1) or (i > 150) then
  writeln ('Это туфта, насяльника!');
if (i <> 11) and (i mod 10 = 1) then
  writeln (i, 'год');
if ((i<10) or (i>20)) and ((i mod 10 = 2) or (i mod 10 = 3) or (i mod 10 = 4) then
 writeln (i, 'года');
if ((i  > 9) and (i < 21)) or ((i mod 10 = 5) or (i mod 10 = 6) or (i mod 10 = 7) or (i mod 10 = 8) or (i mod 10 = 9) or (i mod 10 = 0)) then
  Writeln (i, 'лет');
end.

Должно сработать))