Особенность файловой системы FAT16 в том, что количество кластеров всегда постоянно: 65525 штук (не больше и не меньше), а значит при делении дискового пространства весь жесткий диск будут делить на 65525 равных частей. 1) 500 Гб * 1024 = 512000 мегабайт * 1024 = 524288000 килобайт 2) 524288000 Кб / 65525 кластеров = 8001 Кб для одного кластера на жестком диске, если использовали FAT16, а объем жесткого диска 500 Гб Примечание, так использовать не удобно - 1 кластер - 1 файл - файл может занимать и больше кластеров, но другой файл будет записываться только в следующий кластер:)
nomer3
program ab;
uses crt
uses sysutils;
var s,s1: string;
i,j: integer;
begin
clrscr;
write('введите строку слово');
writeln;
readln(s);
for i: =1 to length(s) do
for j: =1 to length(s) do
if (s[i]=s[j]) and(i< > j)
then
if pos(s[i], s1)=0
then s1: =s1+s[i]+' ';
write('повторяющиеся символы: ', s1);
readln;
end.
nomer2
program as
uses crt;
var s,sp: string;
i: integer;
begin
clrscr;
write('s=');
readln(s);
sp: ='';
for i: =1 to length(s) do
sp: =s[i]+sp;
if sp=s then writeln ('палиндром')
else writeln ('не палиндром');
readkey
end.
nomer1
function compare(s1,s2: string): boolean;
begin
result: =s1=s2;
end;
var s1,s2: string;
begin
readln(s1);
readln(s2);
if compare(s1,s2) then write('yes')
else write('no')
end.