Program sum;
uses Crt;
Var i: integer;
sum, p, sr : real;
a : array [1..25] of real;
begin
Clrscr;
For i:=1 to 25 do
begin
write ('a[',i,']=');
readln(a[i]);
end;
sum:=0;
For i:=1 to 25 do begin
if a[i]>0 then sum:=sum+a[i];
end;
sr:=sum/25;
For i:=1 to 25 do begin
if a[i]<0 then p:=p*a[i];
end;
Writeln ('Sum=',sum:5:2);
Writeln ('p=',p:5:2);
Writeln ('Sr=',sr:5:2);
readln;
end.
Ответ:
1 байт = 8 бит
1 Кб (1 Килобайт) = 210 байт = 2*2*2*2*2*2*2*2*2*2 байт =
= 1024 байт (примерно 1 тысяча байт – 103 байт)
1 Мб (1 Мегабайт) = 220 байт = 1024 килобайт (примерно 1 миллион байт – 106 байт)
1 Гб (1 Гигабайт) = 230 байт = 1024 мегабайт (примерно 1 миллиард байт – 109 байт)
1 кб=1024 б = 2 >13 бит
F(11) = F(10) + F(9) = F(9) + F(8) + F(8) + F(7) = F(8) + F(7) + F(8) + F(8) + F(7) = 3F(8) + 2F(7)
7 = 3F(8) + 4 => F(8) = 1.
F(8) = F(7) + F(6) <=> F(6) = F(8) - F(7) = 1 - 2 = -1.
F(7) = F(6) + F(5) <=> F(5) = F(7) - F(6) = 2 - (-1) = 3.
F(6) = F(5) + F(4) <=> F(4) = F(6) - F(5) = -1 - 3 = -4.
F(5) = F(4) + F(3) <=> F(3) = F(5) - F(4) = 3 - (-4) = 7.