Ответ:
program Num12;
var
i, n, c: Integer;
p: Double;
begin
c := 0;
p := 1;
for i := 83 downto 9 do begin
n := i * 12;
Write (n, ' ');
Inc (c);
p := p * n;
end;
WriteLn;
WriteLn ('Количество = ', c);
WriteLn ('Произведение = ', p);
ReadLn;
end.
<em>N=32 ; </em>
N = 2 (в степени i) ;
i = 5 ;
iс= i * K
iс = 5 * 256 = 1280 бит :8 = 160 байт (кол-во информации на 1 носителе);
iс= 256 * 512 * 5=655 360 бит :8 = 81 920 байт :1024 = 80 Кбайт (кол-во информации во всем своде законов)
Const
e = 0.000001;
var
i, f, f1, thn, t: integer;
s, s1: real;
begin
i := 0;
f1 := 1;
f := 2;
thn := -1;
s := 1;
s1 := 0;
repeat
i := i + 1;
s1 := s;
thn := thn * -3;
s := s + 2 * i / f / thn;
writeln(2 * i, ' ', f, ' ', thn, ' ', s);
t := f1;
f1 := f;
f := f + t
until abs(abs(s1) - abs(s)) < e;
writeln(s);
end.
Ответ: 272 в 9 СС
Решение будет на фотке: