Все 5-буквенные слова, составленные из букв о, п, р, т, записаны в алфавитном порядке и пронумерованы. вот начало списка: 1. 2. 3. 4. 5. какие слова находятся в этом списке на 531 и 787 местах?

РОПОР и ТОПОР

Объяснение:

Представим что имеем дело с 4-ичной системой счисления { 0 - О, 1 - П, 2 - Р, 3 - Т }. В таком случае вышенаписанный ряд можно представить в такой виде:

1. (00000) = 0 в 10ичной СС

2. П (00001) = 1 в 10ичной СС

3. Р (00002) = 2 в 10ичной СС

4. Т (00003) = 3 в 10ичной СС

5. ОООПО (00010) = 4 в 10ичной СС

...

Исходя из этого, чтобы получить слово, находящееся на 531 месте и 787 месте, достаточно перевести числа 530 и 786 в 4-ичную систему счисления и заменить цифры буквами.

1.

530 / 4 = 132 (2 остаток)

132 / 4 = 33 (0 остаток)

33 / 4 = 8 (1 остаток)

8 / 4 = 2 (0 остаток)

530(10) = 20102 (4)

Замена: РОПОР

2.

786 / 4 = 196 (2 остаток)

196 / 4 = 49 (0 остаток)

49 / 4 = 12 (1 остаток)

12 / 4 = 3 (0 остаток)

786(10) = 30102(4)

Замена: ТОПОР

1. Доступ к файлу sozd.html, находящемуся на сервере param.org, осуществляется по протоколу ftp. Фрагменты адреса файла закодированы цифрами от 1 до 7. Запишите последовательность этих цифр одним целым числом, кодирующую адрес указанного файла в сети Интернет. 1):// 2)sozd 3).org 4).html 5)ftp 6)param 7)/

2. фото

3. Какие из приведённых IP-адресов записаны правильно? *

101.123.278.211

112.145.0.43

156.21.0.1

423.32.12.11

101.1.201

4. Зачем нужны доменные имена? *

человеку удобнее запоминать их

компьютеру удобнее работать с ними

они занимают меньше места в памяти

по доменному адресу можно всегда определить страну

var   s : string[50];
  i, j, k : word;  
 f : boolean;  
function isSpace(ch : char) : boolean;
begin   isSpace := false;  
if ch = ' ' then isSpace := true;
end;  
begin   f := false;  
   repeat     j := 0;
    writeln('введите строку, состоящую из 2 слов');
    readln(s);    
for i := 1 to length(s) do    
   if isSpace(s[i]) then  
    begin    
     inc(j);      
   k := i;       end;
     if j =1 then f := true;
    until f;    
write(copy(s, k + 1, length(s)), ' ', copy(s, 1, k - 1)); 
end.
недавно такую писала :)