Program fofgogjoj;
var
n:integer;
a,s:real;
begin
repeat
Writeln('Введите вещественное число a');
Read(a);
until a>1;
s:=0;
n:=1;
while s<a-1/n do
begin
s:=s+1/n;
Write(n:4);
n:=n+1;
end;
Writeln;
Writeln('s=',s:0:4);
<span>end.
Не советую печатать число большее 10 xD</span>
Type
mas=array[,] of integer;
var
i,j,ik,jk,k,max:integer;
a:mas;
b:array[0..5]of integer;//вспомогательный массив
begin
setlength(a,5,6);
writeln('Массив:');
// в массиве b минимальное число строки
for i:=0 to 4 do
begin
for j:=0 to 5 do
begin
a[i,j]:=random(-10,10);
write(a[i,j]:4);
if j=0 then b[i]:=a[i,0];
if a[i,j]<b[i] then b[i]:=a[i,j];
end;
writeln;
end;
writeln('Замена минимального противоположным:');
for i:=0 to 4 do
begin
for j:=0 to 5 do
begin
if a[i,j]=b[i] then a[i,j]:=-a[i,j];
write(a[i,j]:4);
end;
writeln;
end;
writeln('Вставка столбцов:');
// в массиве b признак наличия в столбце максимума
for i:=0 to 5 do b[i]:=0;
for i:=0 to 4 do
for j:=1 to 5 do
if a[i,j]>max then max:=a[i,j];
for i:=0 to 4 do
for j:=0 to 5 do
if a[i,j]=max then b[j]:=1;
for i:=0 to 5 do k:=k+b[i];
k:=5+k;
setlength(a,5,k+1);
jk:=k;
for j:=5 downto 0 do
begin
if b[j]=1 then
begin
for ik:=0 to 4 do a[ik,jk]:=1;
jk:=jk-1;
end;
for ik:=0 to 4 do a[ik,jk]:=a[ik,j];
jk:=jk-1;
end;
for i:=0 to 4 do
begin
for j:=0 to k do write(a[i,j]:4);
writeln;
end;
writeln('Удаление первой строки:');
for i:=0 to 3 do
for j:=0 to k do
a[i,j]:=a[i+1,j];
setlength(a,4,k+1);
for i:=0 to 3 do
begin
for j:=0 to k do
write(a[i,j]:4);
writeln;
end;
writeln('Обмен столбцов:');
for i:=0 to 3 do
begin
b[i]:=a[i,k-1];
a[i,k-1]:=a[i,k];
a[i,k]:=b[i];
end;
for i:=0 to 3 do
begin
for j:=0 to k do write(a[i,j]:4);
writeln;
end;
<span>end.</span>
Ответ:
Введите доступную память в Гб - 6
Доступная память 6Гб = 6 * 1024 * 1024 * 1024 * 8 бит = 51539607552 бит
Вес одной страницы = 40*60*8 = 19200 бит
Страниц в памяти = 51539607552 div 19200 = 2684354 страниц
Высота стопки = 2684354 / 100 = 26843.54 см = 268.4354 м
Объяснение:
