1.Напишите наименьшее целое число, для которого истинно высказывание:
НЕ(Число < 68) И НЕ (Число нечётное)?
2. Напишите наибольшее целое число x, для которого истинно высказывание:
НЕ (X < 5) И НЕ (X >= 7).
3. Напишите наибольшее натуральное число x, для которого ИСТИННО высказывание
(x < 3) И НЕ (x < 8).
4. В языке запросов поискового сервера для обозначения логической операции «ИЛИ»
используется символ «|», а для логической операции «И» — символ «&».
В таблице приведены запросы и количество найденных по ним страниц некоторого сегмента
сети Интернет.
Запрос Найдено страниц
(в тысячах)
Сириус & Вега 240
Вега & (Сириус | Арктур) 447
Сириус & Вега & Арктур 111
Какое количество страниц (в тысячах) будет найдено по запросу Вега & Арктур ?
Считается, что все запросы выполнялись практически одновременно, так что набор страниц,
содержащих все искомые слова, не изменялся за время выполнения запросов.
5. В языке запросов поискового сервера для обозначения логической операции «ИЛИ»
используется символ «|», а для обозначения логической операции «И» — символ «&».
В таблице приведены запросы и количество найденных по ним страниц некоторого сегмента
сети Интернет.
Запрос Найдено страниц
(в тысячах)
Рыбак | Рыбка 750
Рыбак 230
Рыбак & Рыбка 20
Какое количество страниц (в тысячах) будет найдено по запросу
Рыбка?
Считается, что все запросы выполнялись практически одновременно, так что набор страниц,
содержащих все искомые слова, не изменялся за время выполнения запросов.
6. В языке запросов поискового сервера для обозначения логических операций «ИЛИ»
используется символ «|», а для обозначения логической операции «И» — символ «&».
В таблице приведены запросы и количество найденных по ним страниц некоторого сегмента
сети Интернет. Считается, что все запросы выполнялись практически одновременно, так что набор
страниц, содержащих все искомые слова, не изменялся за время выполнения запросов.
Запрос Найдено страниц (в тысячах)
Царевна & Лягушка 500
Царевна 3000
Царевна | Лягушка 4800
Какое количество страниц (в тысячах) будет найдено по запросу Лягушка?
program mn;
uses crt;
const m=7;n=9;
var mas:array[1..m,1..n] of Integer ;
m1, m2:array[1..n] of Integer ;
i, j, k:Integer;
begin
Randomize;
write('Исходный массив:') ;
for i:=1 to m do begin
writeln;
for j:=1 to n do begin
mas[i, j]:=random(100);
write(mas[i, j]:3) end end ;
j:=0;
repeat
for i:=1 to n do begin
m1[i]:=mas[1+j,i];
m2[i]:=mas[m-j,i];
mas[1+j,i]:=m2[i];
mas[m-j,i]:=m1[i]; end;
j:=j+1
until j>m div 2;
writeln;
write('Преобразованный массив:') ;
for i:=1 to m do begin
writeln;
for j:=1 to n do
write(mas[i, j] :3) end;
readln;
end.
Объяснение:
В разделе const задаем нужный размер исходного массива.