Задача 1. Напишите наибольшее число x, для которого истинно высказывание:

(x < 75) И НЕ (x чётное)?

Задача 2. Напишите наименьшее число x, для которого истинно высказывание:

НЕ (х < 100) И НЕ (х чётное)?

Задача 3. Напишите наименьшее число x, для которого истинно высказывание:

НЕ (х < 100) И НЕ (х чётное)?

Задача 4. Напишите наименьшее число x, для которого ложно высказывание:

НЕ (х > 50) ИЛИ (х чётное)?​

Задача №1
var a:array[1..4, 1..5] of integer; 
i,j,k:integer; 
begin 
writeln('Заполните матрицу'); 
for i:=1 to 4 do 
for j:=1 to 5 do begin 
read(a[i,j]); 
if (a[i,j] mod 3=0) and (a[i,j]>20) then k:=k+a[i,j]; 
end; 
writeln('Сумма элементов кратных 3-м и > 20 = ',k); 
end.

Задача №2
var a:array[1..5, 1..5] of integer; 
i,j,k:integer; 
begin 
writeln('Заполните матрицу'); 
for i:=1 to 5 do 
for j:=1 to 5 do begin 
read(a[i,j]); 
if i=j then k:=k+a[i,j]; 
end; 
writeln('Сумма элементов главной диагонали = ',k); 
end.

Задание 1)

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
  var fam:=ReadlnString('Фамилия:');
  var nam:=ReadlnString('имя:');
  var otch:=ReadlnString('отчество:');
  var fio:=fam+' '+nam+' '+otch;
  Writeln(fio,', длина текста- ',fio.Length)
end.

Тестовое решение
Фамилия: Иванов
имя: Сергей
отчество: Петрович
Иванов Сергей Петрович, длина текста- 22

Задание 3)

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
  var w:='ИНТЕГРАЛ';
  Writeln(w[5]+w[7]+w[2:5]+w[8]+w[1]);
  Writeln(w[6]+w[4]+w[2:4]+w[5:3:-1]+w[2]);
  Writeln(w[3]+w[1]+w[5:7]);
  Writeln(w[7]+w[5:3:-1]+w[2:4]);
  Writeln(w[6:]+w[8]+w[1]);
  Writeln(w[1]+w[5:8]);
  Writeln(w[2::-1]+w[3]+w[6:8]+w[3])
end.

Решение:
ГАНТЕЛИ
РЕНТГЕН
ТИГР
АГЕНТ
РАЛЛИ
ИГРА
НИТРАТ