Какой объем файл будет занимать на жестком диске, если в оперативной памяти файл занимает 612 ячеек, а размер кластера жесткого диска 4 Кбайта (4096 байта)?
1)var a:array[1..4,1..4] of integer; i,j,s:integer; begin for i:=1 to 4 do for j:=1 to 4 do readln(a[i,j]);
for i:=1 to 4 do begin writeln(); for j:=1 to 4 do begin write(a[i,j],' '); if (i+j>5) then s:=s+a[i,j]; end; end; writeln(); write(s); end.
2)var a:array[1..4,1..4] of integer; i,j,s:integer; begin for i:=1 to 4 do for j:=1 to 4 do readln(a[i,j]);
for i:=1 to 4 do begin writeln(); for j:=1 to 4 do begin write(a[i,j],' '); if (i>J) then s:=s+a[i,j]; end; end; writeln(); write(s); end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Какой объем файл будет занимать на жестком диске, если в оперативной памяти файл занимает 612 ячеек, а размер кластера жесткого диска 4 Кбайта (4096 байта)?
i,j,s:integer;
begin
for i:=1 to 4 do
for j:=1 to 4 do
readln(a[i,j]);
for i:=1 to 4 do begin
writeln();
for j:=1 to 4 do begin
write(a[i,j],' ');
if (i+j>5) then s:=s+a[i,j];
end;
end;
writeln();
write(s);
end.
2)var a:array[1..4,1..4] of integer;
i,j,s:integer;
begin
for i:=1 to 4 do
for j:=1 to 4 do
readln(a[i,j]);
for i:=1 to 4 do begin
writeln();
for j:=1 to 4 do begin
write(a[i,j],' ');
if (i>J) then s:=s+a[i,j];
end;
end;
writeln();
write(s);
end.