1 Напишите имя сервиса Интернет, который использует больше одного протокола.
ответ:
2 Доступ к файлу table.xls, находящемуся на сервере home.ru, осуществляется по протоколу ftp.
Фрагменты адреса файла закодированы цифрами от 1 до 7
Запишите последовательность этих цифр, кодирующую адрес указанного файла в сети Интернет.
1) table 2) / 3) :// 4) .ru 5) .xls 6) ftp 7) home
ответ:
3 В языке за поискового сервера для обозначения логической операции «ИЛИ»
используется символ «|», а для логической операции «И» – символ «&».
По за найдено страниц (в тысячах) :
Евгений & Онегин 1500
Евгений 1200
Онегин 1300
Какое количество страниц (в тысячах) будет найдено по за Евгений | Онегин?
ответ с решением.
4 Пользователь работал с каталогом Пушкин. Сначала он поднялся на один уровень вверх, потом
спустился в каталог Лермонтов и после этого спустился в каталог Стихи. В результате он оказался в
каталоге D:\Учёба\Литература\Лермонтов\Стихи.
Укажите полный путь того каталога, в котором пользователь работал вначале.
1) D:\Учёба\Литература\Пушкин
2) D:\Учёба\Литература\Пушкин\Стихи
3) D:\Учёба\Литература\Стихи\Пушкин
4) D:\Учёба\Пушкин.
ответ:
5 Приведены за к поисковому серверу. Для каждого за указан его код –
соответствующая буква от А до Г. Расположите коды за в порядке возрастания количества
страниц, которые нашёл поисковый сервер по каждому за По всем за было найдено
разное количество страниц.
А Преступление | Наказание
Б Достоевский & Преступление & Наказание
В Достоевский & Наказание
Г Достоевский | Преступление & Наказание .
program pr10;
uses crt;
var
i: integer;
t: real; // рабочая переменная
i: byte; // счетчик массива
k: byte; // параметр цикла
a: array[1..15] of real;
n: byte; // размерность цикла
begin
clrscr;
write('введите размерность: ');
readln(n);
writeln('введите ',n,' элементов');
for i: =1 to n do
readln(a[i]);
writeln('исходный массив: ');
for i: =1 to n do
write(a[i]: 5: 1,' ');
readln;
// блок обработки
for k: =1 to n do
for i: =1 to n-k do
if(a[i]> a[i+1]) then
// перестановка
begin
t: =a[i];
a[i]: =a[i+1];
a[i+1]: =t;
end;
writeln('отсортированный массив: ');
for i: =1 to n do
write(a[i],' ');
writeln;
readln;
end.
я хз как правильно проверить простое число или нет. вот код, который просто сортирует массив по возрастанию.
type cl = class
a: integer;
constructor create(b: integer);
procedure setval(b: integer);
function getval: integer;
procedure sq;
end;
constructor cl.create(b: integer);
begin
a : = b;
end;
procedure cl.setval(b: integer);
begin
a : = b;
end;
function cl.getval: integer;
begin
getval : = a;
end;
procedure cl.sq;
begin
if a < 0 then
writeln('a ^ 2 = ', a * a)
else
writeln('error');
end;
var
obj: cl;
a : integer;
begin
write('a = ');
readln(a);
obj : = cl.create(a);
obj.sq;
readln;
obj.destroy;
end.