109(10)= 11001(3)
109:3= 36, ост 1
36:3=12 ост 0
12:3=4 ост 0
4:3=1 ост 1
И потом надо записывать остатки в обратном порядке , то есть 1 1 0 0 1= 11001. И так из десятичной можно перевести троичную: 1) делить на 3 пока не останется число меньше 3, 2) записать остатки в обратном порядке
512*512*256=67108864 бит
67108864 / 8=8388608 байт
8388608/1024=8192 Килобайт
8192/1024= 8 Мегабайт
Файловые системы: FAT32, NTFS, <span>exFAT и FAT
Чтобы выбрать файловую систему при форматирование нужно нажать на соответствующий список выбора файловой системы, по умолчанию стоит FAT32.</span>
name_list = [
'Егор', 'Егор', 'Дмитрий', 'Дмитрий',
'Егор', 'Егор', 'Егор', 'Дмитрий',
'Егор', 'Егор', 'Егор', 'Дмитрий',
'Егор', 'Дмитрий', 'Егор', 'Дмитрий'
]
print(name_list.count('Дмитрий'))
Uses Crt;
Const
N = 10;
Var
f:text;
S:string;
A:array[1..N] of longint;
i,j,k:integer;
Begin
ClrScr;
WriteLn('Введите имя файла текстового, если он лежит в папке с программой(ВходнойФайл.txt)');
WriteLn('Или введите полное имя файла (C:\...\ВходнойФайл.txt)');
ReadLn(S);
Assign(f,S);
Reset(f);
i:=1;
Repeat
Read(f,A[i]);
i:=i+1;
Until i>N;
Write('Содержимое файла:');
For i:= 1 to N do
Write(' ',A[i]);
WriteLn;
Write('Уникальные элементы:');
For i:= 1 to N do
Begin
k:=1;
For j:= 1 to N do
if i<>j then
if A[i]=A[j] then k:=k+1;
if k=1 then Write(' ',A[i])
End;
ReadLn;
End.
Пример:
Введите имя файла текстового,если он лежит в папке с программой(ВходнойФайл.txt)
Или введите полное имя файла (C:\...\ВходнойФайл.txt)
123.txt
Содержимое файла: 1 2 13 5 2 1 3 17 19 21
Уникальные элементы: 13 5 3 17 19 21