1)256
2)На один символ в этой кодировке 16 бит. Возможных символов 2 в 16степени
3)Здесь 1символ=1байт. 2Кбайта переведи в байты/1024 и раздели на кол-о букв в афаризме
4)2в 9 степени=521комбинаций, а уч-в 1000
5)КолСим*16=<span>КолСим*8+480 КолСим=60</span>
{конструкция else для того если будут введены отрицательные x y}
var
x,y:real;begin
readln(x,y);
if (x*x*x*x*x+y)>0 then
writeln(exp(ln(x*x*x*x*x+y)*(1/3))*PI/(1+(exp(ln(2)*y)/x)))
else
writeln(-exp(ln(abs(x*x*x*x*x+y))*(1/3))*PI/(1+(exp(ln(2)*y)/x)));
<span>end.</span>
Var
Pr: set of 1..20;
x: integer;
begin
Pr := [1, 2, 3, 5, 7, 11, 13, 17, 19];
writeln('Вводите целые числа от 1 до 20, выход по 99');
repeat
write('Число ');
readln(x);
if x < 21 then
if x in Pr then writeln('простое')
else writeln('не простое')
until x = 99
end.
Тестовое решение:
Вводите целые числа от 1 до 20, выход по 99
Число 18
не простое
Число 3
простое
Число 15
не простое
Число 23
Число 19
простое
Число 99
Администрирование или программирование, что интересует?