N=15 i=4 бит/1сим
1024*4=4096 бит
2^12/2^3=2^9=512 байт
2^12/2^12=0.5 Кбайт
I=k*i
K - количество символов
I - вес всего сообщения
i - вес одного символа
10 байт = 80 бит (в 1 байте - 8 бит)
80 = 300 * i
i = 80 / 300 - и в общем такого быть не может. Или ошибка в условии или еще что-то. Но там должно получится целое число и больше или равно 1. Не может быть такого что бы символ весил меньше чем 1 бит.
Но по идеи потом по формуле:
2^i=N
Где N - количество символом в алфавите.
Есть много решение этой задачи. Вот моё.
program n_1;var a:real;beginread(a);a:= a / 2;writeln(a,' ',a);end.
Var
a, b, c: integer;
begin
readln(a, b, c); //вводим a b c
if a > 0 then writeln(a*a) //если a > 0 вывести квадрат a
else
writeln(a); //иначе вывести a
if b > 0 then writeln(b*b) //если b > 0 вывести квадрат b
else
writeln(b); //иначе вывести b
if c > 0 then writeln(c*c) //если c > 0 вывести квадрат c
else
writeln(c); //иначе вывести c
<span>end.</span>