Проверяем число Н
перебираем числа от 2 до Н, если ни одно не делится, то простое, если делится - составное
Program StrokABC;
uses Crt;
var d,n,i,k:integer;
s:string;
begin
clrscr;
writeln('Введите n:');
readln(n);
repeat
clrscr;
readln(s);
until length(s)=n;
d:= length(s);
for i:=1 to d do
if (s[i]='a')and(s[i+1]='b')and(s[i+2]='c') then k:=k+1;
writeln('строка abc входит в данную строку ',k,' раз');
readkey;
end.
16-ти символьный алфавит кодирует один символ 4-мя битами
4 бита это 1/2 байта. то есть один символ занимает пол-байта.
Общий объем = 1/16 МБайт = (1024 * 1/16) кБайт = 64 кБайт = (64 * 1024) байт = 65536 байт
Символов = 65536 / (1/2) = 131072 символа