Петя разрабатывает программный компонент для записи текстовых файлов. Он знает, что тексты, которые ему нужно записывать могут содержать ограниченный набор символов: строчные и прописные латинские буквы (в латинском алфавите 2626 букв), строчные и прописные русские буквы (в русском алфавите 3333 буквы), цифры от 00 до 99, а также знаки препинания и специальные символы, которых в сумме 2020. Изначально, Петя решил записывать в память коды символов, используя минимальное, одинаковое для всех символов количество бит. Вася заметил, что тексты, которые записывает Петя можно разделить на два непересекающихся фрагмента: аннотацию и основной текст. При этом в аннотации можно использовать только строчные и прописные латинские буквы, цифры от 00 до 99 и десять знаков препинания. Он предложил Пете использовать разные кодовые таблицы для аннотации и основных текстов и сохранять в память для аннотации коды символов, используя минимальное, одинаковое для всех символов, которые могут встретиться в аннотации, количество бит, а для основного текста коды символов, используя минимальное, одинаковое для всех возможных в тексте символов количество бит. Петя попробовал применить этот метод для файла, в котором количество символов в аннотации составляет ровно 1/81/8 от общего количества символов в тексте и получил выигрыш ровно в 20482048 бит при сохранении файла относительно своего изначального Найдите количество символов в тексте, который сохраняет Петя. В ответе укажите целое число.
var k: integer;
begin
k:=0;
if abs(sqr(x-a)+sqr(y-b)-r*r)<1.0e-9 then k:=1;
if r*r-sqr(x-a)-sqr(y-b)>1.0e-9 then k:=2;
ptcrk:=k;
end;
// основная программа
var a,b,x,y,r,k: real;
begin
write('координаты центра a b: '); readln(a,b);
write('координаты точки x y: '); readln(x,y);
write('радиус: '); readln(r);
k:=ptcrk(a,b,x,y,r);
if k=1 then writeln('точка на окружности');
if k=2 then writeln('точка внутри круга');
if k=0 then writeln('точка вне круга');
end.
координаты центра a b: 2 1
координаты точки x y: 4 1
радиус: 2.1
точка внутри круга
координаты центра a b: 2 1
координаты точки x y: 4 1
радиус: 2
точка на окружности
uses crt;
var a,b:real;
Begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
if (a<0) and (b<0)
then
Begin
a:=a+2;
b:=b+2;
writeln('a = ',a);
writeln('b = ',b);
end
else
if (a>0) and (b<0)
then
writeln('a*b = ',a*b)
else
if (a<0) and (b>0)
then
writeln('b-a = ', b-a)
else writeln('Ни одно условие не выполняется');
readln;
end.