Сообщение занимает 4 страницы по 40 строк и содержит 7200 байтов информации.сколько символов в строке, если при составлении этого сообщения использовали 64-символьный алфавит?

С начало узнаем сколько занимает объем информации одна строка. Умножим количество страниц на количество строк в одной страницы чтобы найти сколько всего строк. 40*4=160 строк.Разделим объем информации на количество строк и узнаем сколько занимает одна строка объем информации. 7200/160=45 байт. переведем их в биты 45*8=360 бит. 64 символа можно закодировать 6 битами т.е. 2 в 6 степени. 1 символ 6 бит. Разделим объем информации одной странницы на объем информации одного символа и получим сколько всего символов в одной строке. 360/6=60 символов.
ответ: в одной строке 60 символов.

Не особо знаю паскаль, так что дабы не накосячить с синтаксисом, покажу на примере. Тут всё просто - тебе лишь нужен цикл For и расчет процентов.

FOR i = 1 TO 100
percents = FIX(x * p / 100) ' здесь у нас есть переменная percents, которой присваиваются округленные функцией fix проценты (насколько я знаю, в паскале аналогичная функция называется Round)
x = x + percents 'тут всё понятно - переменной X присваивается она сама и годовые проценты по вкладу
IF x >= y THEN 'проверяем, не равен или не превысил ли наш вклад ожидаемую сумму
PRINT i 'в цикле For можно не заморачиваться с отслеживанием лет, переменная i сама подсчитает количество итераций-лет
END 'завершаем программу
END IF
NEXT i ' конец цикла
Можно ещё чисто для себя добавить в условие вывод переменной X, чтобы было нагляднее.  

Важное замечание: Для типа long long int требуется от компилятора поддержка стандарта C99.

Приложил файл расширения .cpp, чтобы обойти ограничение сайта. При работе с кодом измените на .c

#include <stdio.h>

long long int NOD(long long int var1, long long int var2) //Алгоритм Евклида

{

   while(var1 != var2)

   {

       if(var1 > var2)

           var1 = var1 - var2;

       else var2 = var2 - var1;

   }

   return var1;

}

long long int NOK(long long int var1, long long int var2)

{

   return (var1 * var2) / NOD(var1, var2);

}

int main()

{

   long long int N, K;

   scanf("%lli%lli", &N, &K);

   printf("Количество оборотов: %lli\n", NOK(N, K));

}