(>31)И НЕ(сумма цифр числа x больше 8)
Напишите наименьшее число x​

Исходя из условия, нам нужно найти наименьшее значение x, которое будет больше 31, а сумма его цифр меньше 8.

Берём первое число - 32

Сумма его цифр 3 + 2 = 6 условию подходит.

ответ: 32

const alphabet="яабвгдеёжзийклмнопрстуфхцчшщъыьэюя"; var filename: stringprocedure readfile(filename: string); var f: text; s: string; i,k: integer; begin      assign(f,filename);       reset(f);       while not eof (f) do begin { пока не конец файла }            readln (f, s);             for i: = 1 to length(s) do begin              k: =pos(s[i], alphabet);                   if k=1 then k=length(alphabet); {это приколы изза я}                   if k> 1 then s[i]: =alphabet[k-1];         end;             writeln(s);       end;       close(f); end; begin      read(filename);       readfile;       readln; end.

весь текст к бит к=7680 бит/с.* 90с =691200 бит

всего символов с   с=691200 бит/16бит=43200

всего страниц   ц   =ц=43200/400=108 с