Самое простое из того, что смог придумать. Перебираем числа до половины необходимого (больше нет смысла) (for i := 2 to number div 2 do) и ищем есть ли делители (number mod i = 0). Выводим сообщение.
var
number, i : integer;
begin
write('Число: ');
readln(number);
for i := 2 to number div 2 do
if number mod i = 0 then
begin
writeln('Число не является простым, оно делится, как минимум, на ', i);
Exit;
end;
writeln('Число является простым');
end.
1)256
2)На один символ в этой кодировке 16 бит. Возможных символов 2 в 16степени
3)Здесь 1символ=1байт. 2Кбайта переведи в байты/1024 и раздели на кол-о букв в афаризме
4)2в 9 степени=521комбинаций, а уч-в 1000
5)КолСим*16=<span>КолСим*8+480 КолСим=60</span>
<span>
две точки
5,497787
</span>
<span>
6,746833
</span>
экселевский файл с расчетами