Var
a:integer;
begin
readln(a);
If (a<10000) and (a>=0) then
If (a>999) then
If ((a div 1000)=(a mod 10)) and ((a div 10 mod 10)=(a div 100 mod 10)) then
writeln('1')
else
writeln('2')
else
If (a>99) and (a<1000) then
If ((a div 100)=(a mod 10)) then
writeln('1')
else
writeln('2')
else
If (a>9) and (a<100) then
If ((a div 10)=(a mod 10)) then
writeln('1')
else
writeln('2')
else
writeln('1')
else
writeln('Неправльное число');
end.
Большое немного решение, может можно и поменьше, но так точно правильно
20 страниц, в каждой 5 строк по 20 символов. Всего символов в книге: 2000.
Переведем вес всей книги в байты: 5.86*1024=6000.64байт. А затем в биты: 6000.64*8=48005,12бит в книге. Следовательно, один символ занимает 48000.12/2000=24.00256 бита. Но так как биты дробными не бывают, получается, что на один символ тратится 25 бит. Теперь узнаем, сколько символов может быть в алфавите, если на кодировку одного символа уходит 25 бит. Это считается по формуле N=2^i N=2^25=33554432 символов, что похоже на маразм. Видимо условие не совсем точно)
В счетчиках можно вместо 5 указать константу n и где вывод проверку если равен n запятую не печатаем