Дочке в школе задали : по информатике: компания выпустила лотерейные билеты трех разрядов: для молодежи, для взрослых, для пенсионеров. номера билетов каждого разряда лежат в пределах: для молодежи-от 1 до 100; для взрослых- от 101 до 200; для пенсионеров-от 201 до 250. с компьютера выберите случайным образом лотерейный билет в каждом разряде. !

Var m,v,p:integer;
begin
Randomize;
m:=Random(100)+1;
v:=random(100)+101;
p:=random(50)+201;
writeln(m,'  ',v,'  ',p);
end.

Чтобы было удобнее, располагаем перед собой алфавит:


и действуем по указанному правилу:
берём букву из слова и по алфавиту смотрим, какая буква идёт третьей после нашей буквы
если упёрлись в конец алфавита- продолжаем счёт с начала алфавита (движемся по кругу)
чтобы это было удобнее, я запишу алфавит сразу с добавленными буквами в его конце:


такое действие выполняем для каждой буквы в слове

Итак, шифруем слова:
ИНФОРМАЦИЯ => ЛРЧСУПГЩЛВ
КОМПЬЮТЕР => НСПТБХЗУ
ЧЕЛОВЕК => ЪЗОСЕЗН

А вообще, для человека такое преобразование не очень удобно делать, поэтому для большего объёма текста проще было бы составить программу, или таблицу в Экселе, которая бы выполняла нужные действия с текстом.

#include<iostream>
#include<cstring>
using namespace std;
int main()
{
string input="";
string key="";
std::cout<<"Enter the string to be coded:\t";
std::getline(std::cin,input);
std::cout<<"\nEnter key:\t";
std::getline(std::cin,key);
int keyl=key.length();
int inputl=input.length();
for(int j=0;keyl<inputl;j++)
    {
        key+=key[j]; keyl++;
    }
cout<<"\nKey:\t"<<key;
string encrypted="";
for(int i=0; i<keyl;i++)
     {
           encrypted+=key[i]^input[i];
      }
 std::cout<<"\nEncrypted data:\t"<<encrypted;
string unencrypted="";
for(int i=0;i<keyl;i++)
      {
      unencrypted+=encrypted[i]^key[i];
      }
std::cout<<"\nUnencrypted:\t"<<unencrypted;
return 0;
 }