Почему неудобно менять строки массивами символов?
Информатика, очень нужно)

program naoborot;

uses crt;

var n,a,b: integer;

begin

clrscr;

write('введите натуральное число: ');

readln(x);

n: =x;

while n> =1 do

begin

a: =n mod 10;

n: =n div 10;

b: =b*10+a;

end;

write('прочтение цифр числа справа налево: ',b)

end.

в лодку помещается 2 человека? если так, то решение будет:

1. сперва перевправляются 2 , один возвращается назад на лодке.

2. переправляются 2 миссионера, а назад возвращается оставшийся на берегу .

3. переправляются 2 , один остается, второй плывет за оставшимся на другом берегу .

4. переплывают 2 оставшихся .

program pr;

var i: integer;

      mas: array[1..7]of integer;

begin

for i: =1 to 7 do 

begin

writeln ('введите температуру ', i ,' сентября');

readln (mas[i]);

end;

for i: =1 to 7 do writeln (i, '  сентября температура была  ' mas[i]);

readln;

end.

мощность n=16

n=2^i где i-количество информации в символе

тогда i=4

информационный объем i равен i*k где k - количество символов в тексте

значит i =4*540=2160