Используя таблицу кодирования ASCII, закодируй следующие слова. а) RODINA, SHKOLA;
b) COMPUTER, INTERNET;
v) MONITOR, MODEM.

Во всех программах у меня будет использоваться процедура swap:

 

procedure swap(a: ^real; b: ^real);
var
   t: real;
begin
   t := a^;
   a^ := b^;
   b^ := t;
end;

 

swap(x,y) - меняет местами значения x и y.

 

1.

var
   A: array[1..100] of real;
   i, j, N: integer;

begin

   readln(N);
   for i := 1 to N do
      read(A[i]);
   for j := 1 to (N div 2) - 1 do
      for i := 1 to (N div 2) - j do
         swap(A[i], A[i + 1]);
   for j := 1 to (N div 2) - 1 do
      for i := (N div 2) + 1 to N - j do
         swap(A[i], A[i + 1]);
   for i := 1 to N do
      writeln(A[i])
end.

 

2.

var
   A: array[1..100] of real;
   i, N: integer;

begin

   readln(N);
   for i := 1 to N do
      read(A[i]);
   for i := 1 to N - 1 do
      swap(A[i], A[i + 1]);
   for i := 1 to N do
      writeln(A[i])
end.

 

3.

var

   A: array[1..100] of real;
   i, N: integer;

begin

   readln(N);
   for i := 1 to N do
      read(A[i]);
   for i := N downto 2 do
      swap(A[i], A[i - 1]);
   for i := 1 to N do
      writeln(A[i])
end.

*переводим большую единицу (Гб) в меньшую (Мб)*
Что бы это сделать нужно 40 Гб * 1024
Но так как мы знаем что 1024 это 2^10, то получаться что 40Гб= 40* 2^10Мб
чтобы найти кол-во дисков 
Нужно объем информации разделить (40 * 2^10) на объем дика (600)
(40*2^10) \ (600) = (5*2^3*2^10) \ (75*2^3) *сокращаем 2^3* =
=(5*2^10) \ (75) *возводим 2 в 10 степень и умножаем на 5* =
=5120 \ 75 =68,2666... *округляем в большую сторону, т.к по условию задачи дано что информация должна занимать полностью диск*
ОТВЕТ : 69

**справка* степени 2*
2^1=2
2^2=4
2^3=8
2^4=16
2^5=32
2^6=64
2^7=128
2^8=256
2^9=512
2^10=1024