Для записи текста использовался 16символьный алфавит каждая страница 30строк по 50 символов в строке какое количество информации содержат 6страниц текста

Компютерный язык(наверное)

Var   s: string;   i, n1, n2, n3: integer; begin   s : = 'это текст для подсчета в нем символов. такое вот занятное дело.';   s : = s + 'выбраны не самые частые буквы - ы, ю, я, но таково ! ';   n1 : = 0; n2 : = 0; n3 : = 0;   for i : = 1 to length(s) do       case upcase(s[i]) of           'ы': n1 : = n1 + 1;           'ю': n2 : = n2 + 1;           'я': n3 : = n3 + 1;       end;   writeln('в строке встретились буквы: ы : ', n1, ' раз, ю : ',       n2, ' раз, я: ', n3, ' раз') end. тестовое решение: в строке встретились буквы: ы : 6 раз, ю : 1 раз, я: 3 раз

Var   f: text;   n, s, e: integer; begin   n : = 0;   s : = 0;   assign(f, 'input.txt');   reset(f);   while not eof(f) do   begin       readln(f,e);       n : = n + 1;       s : = s + e   end;   close(f);   writeln('в файле ', n, ' чисел; их сумма равна ', s) end. тестовое решение: в файле 10 чисел; их сумма равна 213 содержимое файла input.txt: 24 37 14 -6 42 58 3 14 0 27