1)Монитор,(на счет магнитофона не уверен, сам по себе именно магнитофон никак не является устройством ПК, но если подразумевают пол этим словом динамик ПК, то подходит)
2)Получение
3)Электрический ток
4)Анатомический муляж
5)102 бита
6)48
7)из перечисленных ниже нет верного ответа. 568 в десятичной = 1 000 111 000 в двоичной.
8)АВИБА
9)Представленные ответы неправильны, так как не являются двоичным кодом(присутствуют двойки)+не указано к какой системе счисления принадлежит y (если x - очевидно 16-ти ричная, то y может быть как 16 так и 10
10) И снова нет верного ответа из предложенных, т.к. получится D8
11)800 бит
12) (Ячейки excel где?)
13) Аналогично 12
14)тоже
15)27
16)User-name
17)c*.c*
18)145.92.128.0
19)Верного ответа нет. Правильно: 22
20) 5
Объяснение:
Var
f:text;
ars:array of string;
s,s1:string;
min,n,i:integer;
begin
n:=1;
min:=integer.MaxValue;
assign(f,'text.txt');
reset(f);
while not(Eof(f)) do
begin
readln(f,s);
s1:=s;
s:=s.Trim;
i:=1;
while i<>length(s) do
if (s[i]=' ') and (s[i+1]=' ') then delete(s,i,1) else inc(i);
if ((s.split).length<=min) and ((s.split).length<>0) then
begin
if (s.split).length=min then
begin
inc(n);
setlength(ars,n);
ars[n-1]:=s1;
end
else
begin
n:=1;
setlength(ars,n);
ars[n-1]:=s1;
end;
min:=(s.split).length;
end;
end;
close(f);
assign(f,'text1.txt');
rewrite(f);
for i:=0 to n-1 do
writeln(f,ars[i]);
close(f);
end.
Содержимое файла text.txt:
Хей патимейкер
уличный
денсер
шейкер шейкер
Содержимое файла text1.txt:
уличный
денсер