1. для какого из значений числа x истинно высказывание: (x < 7) и не (x < 6)? 1) 4 2) 5 3) 6 4) 7 2. для какого из чисел истинно высказывание: (число < 100) и не (число чётное)? 1) 156 2) 105 3) 23 4) 10 3. в таблице запросы к поисковому серверу. для каждого запроса указан его код — соответствующая буква от а до г. расположите коды запросов слева направо в порядке возрастания количества страниц, которые нашёл поисковый сервер по каждому запросу. по всем запросам было найдено разное количество страниц. для обозначения логической операции «или» в запросе используется символ «|», а для логической операции «и» — «& »: код запрос а лебедь | рак | щука б лебедь & рак в лебедь & рак & щука г лебедь | рак 4. в таблице запросы к поисковому серверу. для каждого запроса указан его код — соответствующая буква от а до г. расположите коды запросов слева направо в порядке возрастания количества страниц, которые нашёл поисковый сервер по каждому запросу. по всем запросам было найдено разное количество страниц. для обозначения логической операции «или» в запросе используется символ «|», а для логической операции «и» — «& »: код запрос а эльфы | гномы | орки | хоббиты б эльфы | гномы | орки в эльфы & гномы г эльфы | гномы
program raf105;
const
n = 5;
var
a: array[1..n,1..n] of integer;
i,j,num,n1,n2: integer;
begin
writeln('Вводите числа столбцов матрицы по очереди');
for i:=1 to n do
begin
writeln('Столбец ',i);
for j:=1 to n do
readln(a[i,j]);
end;
for i:=1 to n do
begin
n1:= 0;
n2:= 0;
for j:=1 to n do
begin
if (a[i,j] mod 2 <> 0) and (a[i,j] <> 0)
then n1:= n1+1;
end;
for j:=1 to n do
begin
if (a[i,j] mod 2 = 0) and (a[i,j] <> 0)
then n2:= n2+1;
end;
if n1 > n2
then num:= i;
end;
writeln('Вывод: ',num);
end.
PascalABC 3.4.2