Int P = допустим 20;
int S;
S = P/4 * P/4 ;
возможно не так я не знаю паскаля но алгоритм правельный
Все просто. если сообщение из 20 символов это 100 бит, значит один символ это 100/20 = 5 бит. Размер алфафита считается по формуле 2 в степени размера символа. 2 в степени 5 = 32
Размер алфавита = 32 символа
Нужно умножить стороны треугольника
var
x, count:integer;
begin
write('x = '); readln(x);
write('Количество троек в числе ', x, ' - ');
while x > 0 do
begin
if x mod 10 = 3 then
count := count + 1;
x := x div 10;
end;
writeln(count);
end.
Вот, скачай и посмотри. Формулу написал.