Доступ к файлу com.txt, находящемуся на сервере mail.net, осуществляется по протоколу http. Фрагменты адреса файла закодированы буквами от А до Ж. Запишите последовательность этих букв, кодирующую адрес указанного файла в сети Интернет. А) /
Б) http
В) ://
Г) .txt
Д) .net
Е) mail
Ж) com
Задание 2
Доступ к файлу txt.net, находящемуся на сервере gov.org, осуществляется по протоколу http. Фрагменты адреса файла закодированы буквами от А до Ж. Запишите последовательность этих букв, кодирующую адрес указанного файла в сети Интернет.
А) .net
Б) txt
В) ://
Г) http
Д) /
Е) gov
Ж) .org
Задание 3
Доступ к файлу net.txt, находящемуся на сервере doc.com, осуществляется по протоколу ftp. В таблице фрагменты адреса файла закодированы буквами от А до Ж. Запишите последовательность этих букв, кодирующую адрес указанного файла в сети Интернет.
А) /
Б) .com
В) ftp
Г) .txt
Д) doc
Е) net
Ж) ://
Задание 4
Доступ к файлу edu.lib, находящемуся на сервере net.рф, осуществляется по протоколу ftp. Фрагменты адреса файла закодированы буквами от А до Ж. Запишите последовательность этих букв, кодирующую адрес указанного файла в сети Интернет.
А) ://
Б) .рф
В) .lib
Г) edu
Д) /
Е) ftp
Ж) net
Задание 5
Доступ к файлу com.pas, находящемуся на сервере net.ru, осуществляется по протоколу http. Фрагменты адреса файла закодированы буквами от А до Ж. Запишите последовательность этих букв, кодирующую адрес указанного файла в сети Интернет.
А) ://
Б) /
В) .pas
Г) net
Д) .ru
Е) http
Ж) com
1)
const N = 10;
var A: array [1..N, 1..N] of integer;
i, j, maxMain, maxSecond: integer;
begin
writeln('A: ');
for i:= 1 to N do
begin
for j:= 1 to N do
begin
A[i, j]:= random(-30, 30);
write(A[i, j]:4);
end;
writeln();
end;
for i:=1 to N do
begin
for j:= 1 to N do
begin
if (i = j) and (maxMain < A[i, j]) then
maxMain := A[i, j];
if (i + j = N + 1) and (maxSecond < A[i, j]) then
maxSecond := A[i, j];
end;
end;
writeln('Макс. на глав. диагонали: ' + maxMain);
writeln('Макс. на побочной. диагонали: ' + maxSecond);
end.
2)
const N = 10;
var A: array [1..N] of real;
B, C: array of real;
i: integer;
begin
write('A: ');
for i:= 1 to N do
begin
A[i]:=random(-10, 10);
write(A[i] + ' ');
end;
writeln();
for i:=1 to N do
begin
if (a[i] > 0) then
begin
SetLength(B, Length(B) + 1);
B[High(B)]:=a[i];
end;
if (a[i] < 0) then
begin
SetLength(C, Length(C) + 1);
C[High(C)]:=a[i];
end;
end;
write('B: ');
for i:= 0 to Length(B) - 1 do
write(B[i] + ' ');
writeln();
write('C: ');
for i:= 0 to Length(C) - 1 do
write(C[i] + ' ');
writeln();
end.