А где рисунок на странице 96
<span>v=256000 битс
t= 2 минуты= 120 секунд
S= 256000 * 120 =30720000 бит
Теперь перейдём в байты: 30720000 разделить на 8 = 3840000байт,
а из байтов в килобайты: 3840000 разделить на 1024 = 3750 килобайт </span>
Var A,B,N:integer;
S:real;
Begin
A:=0;
B:=1;
Write('N = ');
ReadLn(N);
if N<0 then Write('Введите положительное число')
else
Begin
While A<N do
Begin
S:=S+A;
A:=A+B;
Swap(A,B);
Write(A,' ');
End;
WriteLn;
WriteLn('S = ',S)
End;
End.
Пример:
N = 10000
1 1 2 3 5 8 13 21 34 55 89 144 233 377 610 987 1597 2584 4181 6765 10946
S = 17710
Примечание:
Условие немного некорректно, т.к.
1+1+2+3+5+8+13+21+34+55+89+144+233+377+610+987+1597+2584+4181+6765 = 17710.
Const
n = 10;
var
i, c: integer;
a, w: array[1..n] of integer;
begin
randomize;
writeln('Исходный массив:');
for i := 1 to n do
begin
a[i] := random(201) - 100;
write(a[i], ' ');
end;
writeln;
c := 0;
for i := 1 to n do
if a[i] > 0 then
begin
c := c + 1;
w[c] := a[i];
end;
writeln('Кол-во положительных элементов: ', c);
for i := 1 to n do
begin
if a[i] <= 0 then
begin
c := c + 1;
w[c] := a[i];
end;
end;
writeln('Результат:');
for i := 1 to c do
write(w[i], ' ');
end.