Объясните, , почему gwbasic не является алгоритмическим? по данным интернета он является первым поколением алгоритмического языка basic.

Условие большое, но задача простая.

Давайте для начала найдем общее количество символов в рукописи и объём рукописи.

Общее количество символов - k, k - произведение числа страница, на число строк, на число символов.

k = 2400 * 130 * 62 = 19344000

Каждый символ кодируется 8 битами, то есть, 1 байтом.

i = 1

I = 19344000 * 1 = 19344000 Байт = 18890.625 Кбайт = 18.447876 Мбайт

Каждая иллюстрация весит 4 мбайт, а их 400. 400 * 4 = 1600 Мбайт

1600 + 18.447876 = 1618 Мбайт

1618 Мбайт это меньше 4 Гигабайт, поэтому можно записать этот файл в несжатом виде.

Информационный объём рукописи с иллюстрациями равен приблизительное 1618 Мбайт, а без иллюстраций примерно 18 Мбайт.

var a: array [1..5] of integer;

i, j , count: integer;

repeated : boolean;

begin

   for i := 1 to 5 do

   begin

       write('Введите ', i, '-e число: ');

       readln(a[i]);

   end;

   for i := 1 to 5 do

   begin

       repeated := false;

       for j := 1 to i - 1 do

           if (a[i] = a[j]) then

               repeated := true;

       if repeated then continue;

       count := 1;

       for j:= i+1 to 5 do

           if (a[i]=a[j]) then

               inc(count);

       writeln('Число ', a[i], ' встречается ', count,' раз');

   end;

end.