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.
Условие большое, но задача простая.
Давайте для начала найдем общее количество символов в рукописи и объём рукописи.
Общее количество символов - 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 Мбайт.
