Заявленная емкость неформатированного гибкого магнитного диска формата 3,5" составляет 1,44 Мбайт.Рассчитаем общую информационную емкость отформатированного гибкого диска:Количество секторов: N = 18 х 80 х 2 = 2880.Информационная емкость:512 байт х N = 1 474 560 байт = 1 440 Кбайт = 1,40625 Мбайт.Однако для записи данных доступно только 2847 секторов, то есть информационная емкость, доступная для записи данных, составляет:512 байт х 2847 = 1 457 664 байт = 1423,5 Кбайт= 1,39 Мбайт.
Ну вы хотябы Сделайте фотографию чтобы посмотреть что там)
3D от англ 3-dimentional (Трехмерный). 3D Модель - изображение какого-либо объекта в 3-х мерном пространстве, то есть у которого есть 3 измерения: длина, ширина, высота. 3D моделью можно считать любой предмет окружающего мира, так как у всех окружающих нас предметов есть длина, ширина и высота.
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