Определяем количество символов на странице:
30*40=1200 байт=9600 бит (т.к. 8 бит =1 байту)
файл 640 кбайт равен
640*1024=655360 байт
определим количество страниц которое поместится в файл
655360/1200=546,13 страницы
следовательно, в файл поместиться 546 страниц
А) цикл <span>for i:=0 to 5 do s:=s+1; выполнится 6 раз. Переменная s будет равна 6,так как действие s:=s+1 будет увеличивать значение переменной s на 1 с каждым шагом цикла, а значение переменной i будет равно 5, так как for i:=0 to 5 do означает,что цикл будет выполняться, пока значение i, с начала цикла равное 0, не достигнет значения 5.
S=6 , i = 5.
б) В данном случае цикл не выполнится ни разу, так как значение n меньше значения i и используется команда to : </span><span>for i:=2 to n do.
Команда to используется для цикла,значение которого идет вверх. В данном случае, чтобы алгоритм выполнился хотя бы раз, нужно было использовать команду downto, которая работает в сторону уменьшения.
Так как алгоритм не будет выполнен, то и значения переменных не изменятся: S=1, i= 2.</span>
Все 6 страниц занимают 8775 байт памяти
1 страница занимает 8775/6 = 1462.5 байт
На 1 строке 1462.5 / 30 = 48.75 байт
По формуле log2(64) = 6 бит уходит на кодировку 1 символа
48.75/6 = 8.125 байт
8.125*8 = 65 бит.
Другое название жёсткого диска -"винчестер" Ещё его называют "железка"
uses crt;
var
a:array [1..100,1..100] of real;
n,m,k:integer;
begin
clrscr;
randomize;
write('N='); read(n);
write('M='); read(m);
for n:=1 to n do
for m:=1 to m do
a[n,m]:=random(100)-50;
for n:=1 to n do
begin
for m:=1 to m do
write(a[n,m],' ');
writeln;
end;
for n:= 1 to n do
begin
k:=0;
for m:= 1 to m do
begin
if a[n,m]<0 then
k:=k+1;
end;
writeln('К<span>ол-во отрицательных элементов '</span><span>,n</span><span>,</span><span>' строки: '</span>,k);
end;
end.