....................................
1.5*1024*1024*8/2048 = 6144 секунды
1,5 КБ=1536 байт=12288 бит
12288/3072=4 бита на символ
=16 символов в алфавите
3 бита
=8 - на кодировку одного символа требуется 3 байта
3*13=39 бит
60*3*25=4500 символов в сообщении
1125*8=9000 бит занимает сообщение
9000/4500=2 бита на символ
=4 символа в использованном алфавите
Если число в двоичной, то добавим ему незначащих нулей:
00001010-ответ
R^2
Var
x,y,r:integer;
Begin
Write('Введите координату X: ');
Readln(x);
Write('Введите координату Y: ');
Readln(y);
Write('Введите длину радиуса R: ');
Readln(r);
If (sqr(x)+sqr(y))=sqr(r) <span>then </span>
writeln('Точка лежит на окружности!')
Else writeln('Точка не лежит на окружности!');<span>
End.</span>