Просто кликаем правой кнопкой мыши на файл потом выбираем там свойство и вауля)
При использовании алфавита из 8 символов для хранения одного символа требуется log(2)8 = 3 бита.
Количество символов в сообщении = 360/3 = 120
Программа:
var i,a,a1,a2,a3: integer;
begin
for i:=101 to 999 do
begin
a:=i*i;
a1:=a mod 1000 div 100;
a2:=a mod 100 div 10;
a3:=a mod 10;
if (a1=a2)and(a2=a3)and(a1<>0) then writeln(i,' ',a);
end;
end.
Результат:
462 213444
538 289444
962 925444
1 КБит = 128 Байт
5 КБит = 640 Байт