Составить линейный разветвляющий и циклический алгоритм, используемые в работе медсестры.​

*** 1 ***
// PascalABC.NET 3.1, сборка 1267 от 10.07.2016
begin
  var w:='КОМПЬЮТЕР';
  Writeln(w[1:4]);
  Writeln((w.Right(3).Inverse)+w[w.Length]+w[2]);
  Writeln(w[w.Length]+w[2::-1])
end.

Результат
КОМ
РЕТРО
РОК

*** 2 ***
// PascalABC.NET 3.1, сборка 1267 от 10.07.2016
begin
  var w:='КОМПЬЮТЕР';
  var i:=ReadInteger('i=');
  Swap(w[i],w[w.Length]);
  Writeln(w)
end.

Тестовое решение
i= 5
КОМПРЮТЕЬ

*** 3 ***
// PascalABC.NET 3.1, сборка 1267 от 10.07.2016
begin
  var w:='ПАР'; // исходное слово
  var k:=4; // константа сдвига шифра Цезаря
  var a:='';
  for var i:=1 to w.Length do begin
    var p:=Pos(w[i],a);
    if p>0 then w[i]:=a[p+k]
    end;
  Writeln(w)
end.

Результат
УДФ

Дано:
Страниц - 3
Строк - 25
Символов в строке - 60
Объём всего - 1125 байт
Формулы:
Нахождение общего количество символов:
Страницы*Строки*Символов в строке=Общее количество символов
Перевод из байт в биты:
байты*8=биты
Вычисление мощности алфавита:
2^b>=A (где A-мощность алфавита, b-количество бит, приходящееся на 1 символ)
Решение:
Вычислим общее количество символов: 
3(страницы)*25(строки)*60(символы)=4500 символов 
Теперь вычислим число бит, выделяемое на хранение 1 символа: 
1125 байт=9000 бит 
9000(бит)/4500(символов)=2 бит 
Нахождение мощности алфавита:
2^2=4 символа
ответ: 4