A collection of servers connected to the
World Wide Web where you can store your files and in some cases to install the
application:
A) Software.
B) Cloud.
C) Server.
D) Computer.
E) Mobil.
$$$ 177
Data
centers include:
A)
Self-service on demand
B) Resource
pooling
C)
Elasticity
D) Highly
reliable server hardware
E)
Universal access network
$$$ 178
Multimedia is:
A) Only video
and text information.
B) Engineering
circuits, utilities.
C) Text,
graphics, and electronic information.
D) Effects and
special programs.
E) Video and
text.
F) Combination
of sound and graphics.
G) Animation.
H) Operating
system software.
$$$ 179
Every computer
connected to the Internet is called:
A) Node.
B) Servers.
C) Protocol.
D) Clients.
E) Data center.
F) Domain Name
System.
$$$ 180
Some nodes which
provide to other nodes programs and data:
A) Node.
B) Servers.
C) Protocol.
D) Clients.
E) Data center.
F) Domain Name System.
$$$ 181
Other computers
which use the information provided by the server:
A) Node.
B) Servers.
C) Protocol.
D) Clients.
E) Data center.
F) Domain Name
System.
const
n = 5;
m = 10; {кол-во столбцов}
l = 10; {максимальная длина одной строки/слова}
{letters = '';}
file_path = 'data.txt';
type
SmallString = string[l];
WordsMas = array[1..n, 1..m] of SmallString;
var
words: WordsMas;
i, j, k: integer;
function RandomWord(n: integer): SmallString;
var
i: integer;
s: SmallString;
letters: string;
begin
letters := '';
s := '';
for i := 1 to n do
s := s + letters[Random(length(letters) - 1) + 1];
RandomWord := s;
end;
function Replace(s, find_text, replace_text: SmallString): SmallString;
var
i: integer;
begin
repeat
i := pos(find_text, s);
if i <> 0 then begin
delete(s, i, length(find_text));
insert(replace_text, s, i);
end;
until i = 0;
Replace := s;
end;
function Invert(s: SmallString): SmallString;
var
i: integer;
t: SmallString;
begin
t := '';
for i := 1 to length(s) do
t := s[i] + t;
Invert := t;
end;
function SwapCase(s: SmallString): SmallString;
var
i: integer;
begin
for i := 1 to length(s) do
if s[i] = upcase(s[i]) then
s[i] := chr(ord(s[i]) + 32)
else s[i] := upcase(s[i]);
SwapCase := s;
end;
procedure PrintMas(mas: WordsMas; name: string);
var
i, j: integer;
f: text;
begin
writeln(name);
for i := 1 to n do
begin
write(i, ': ');
for j := 1 to m do
write(mas[i, j]:l, '; ');
writeln;
end;
Assign(f, file_path);
Append(f);
writeln(f, name);
for i := 1 to n do
begin
write(f, i, ': ');
for j := 1 to m do
write(f, mas[i, j]:l, '; ');
writeln(f);
end;
Close(f);
end;
begin
Randomize;
ClrScr;
for i := 1 to n do
for j := 1 to m do
words[i, j] := RandomWord(Random(l - 5) + 5);
{words[i, j] := 'GoodXXMMNN';}
PrintMas(words, 'Original');
for i := 1 to n do
for j := 1 to m do
case i of
1: words[i, j] := Replace(words[i, j], 'N', 'X');
2: words[i, j] := Replace(words[i, j], 'X', 'M');
3: words[i, j] := Invert(words[i, j]);
4: words[i, j] := SwapCase(words[i, j]);
end;
PrintMas(words, 'New One');
Readln;
end.
Проверялось. Работает на Турбо паскале