Чтобы было удобнее, располагаем перед собой алфавит:
и действуем по указанному правилу: берём букву из слова и по алфавиту смотрим, какая буква идёт третьей после нашей буквы если упёрлись в конец алфавита- продолжаем счёт с начала алфавита (движемся по кругу) чтобы это было удобнее, я запишу алфавит сразу с добавленными буквами в его конце:
такое действие выполняем для каждой буквы в слове
Итак, шифруем слова: ИНФОРМАЦИЯ => ЛРЧСУПГЩЛВ КОМПЬЮТЕР => НСПТБХЗУ ЧЕЛОВЕК => ЪЗОСЕЗН
А вообще, для человека такое преобразование не очень удобно делать, поэтому для большего объёма текста проще было бы составить программу, или таблицу в Экселе, которая бы выполняла нужные действия с текстом.
1) uses crt; const size = 10; var a:array [1..size] of integer; i,p:longint; begin p:=1; randomize; for i:=1 to size do begin a[i]:=random(20); write (a[i],' '); if (a[i] mod 3 = 0) then p:=p*a[i]; end; writeln; writeln (p); end.
2) uses crt; const size = 10; var a:array [1..size] of integer; i:integer; s:real; begin s:=0; randomize; for i:=1 to size do begin a[i]:=random(4)+1; write (a[i],' '); s:=s+a[i]; end; writeln; s:=s/size; writeln (s); end.
я вообще не понял, сколько значная система
двоичная: 71010 → 10110001102 троичная: 71010 → 2220223Объяснение: