2 Кбайта = 2*1024 байт = 2048 байт
Один файл, имеющий размер 2500 байт, займет на диске 2 блока, т.е. 4 Кбайта.
Для хранения 20 файлов потребуется на диске 20*4 = 80 Кбайт.
1. Удалить файл
2. Закрыть рекламу
3. Проверить комп на вирусы
Не знаю в каком порядке
ну или позвать взрослых
Program p1;
Uses crt;
Var A: array [1..10] of integer;
i,k: integer;
Begin clrscr;
Writeln ('Введите элементы массива');
for i:=1 to 10 do
read (a[i]);
k:=0;
for i:=1 to 10 do
begin
if (a[i]>10) and (a[i]<30) then
k:=k+1;
end;
writeln ('Количество чисел в диапазоне (10;30) =',k);
Readln;
readkey;
end.
3. Слой для записи намагничивается пишущей головкой, положение пишущей головки управляется лазером.
Program n;
var
m: array[1..10] of integer;
i,k: integer;
begin
writeln('Введите массив');
k:=0;
for i:=1 to 10 do begin
readln(m[i]);
if m[i]>0 then k:=k+1;
end;
writeln(k);
<span>end.
<em>Если я помогла,то отметь мой ответ лучшим,пожалуйста</em></span>