1. 0,5 Мбайт= 512 Кбайт
12345 бит= 12641280 Кбайт
2. 0,006 Кбайт= 49,15 бит
17 байт= 136 бит
<em><u>Трассировка вызовов, печатаемых значений и подсчет суммы</u></em>
var
s:integer;
procedure F(n:integer);
begin
Write(' F(',n,') ');
Write(n,' '); s:=s+n;
if n<6 then begin
Write(n); s:=s+n;
F(n+1);
F(n+2);
F(2*n)
end
end;
begin
s:=0;
F(1);
Writeln(#13#10,s)
end.
<em><u>Результат выполнения программы:</u></em>
F(1) 1 1 F(2) 2 2 F(3) 3 3 F(4) 4 4 F(5) 5 5 F(6) 6 F(7) 7 F(10) 10 F(6) 6 F(8) 8 F(5) 5 5 F(6) 6 F(7) 7 F(10) 10 F(6) 6 F(4) 4 4 F(5) 5 5 F(6) 6 F(7) 7 F(10) 10 F(6) 6 F(8) 8 F(4) 4 4 F(5) 5 5 F(6) 6 F(7) 7 F(10) 10 F(6) 6 F(8) 8 F(3) 3 3 F(4) 4 4 F(5) 5 5 F(6) 6 F(7) 7 F(10) 10 F(6) 6 F(8) 8 F(5) 5 5 F(6) 6 F(7) 7 F(10) 10 F(6) 6 F(2) 2 2 F(3) 3 3 F(4) 4 4 F(5) 5 5 F(6) 6 F(7) 7 F(10) 10 F(6) 6 F(8) 8 F(5) 5 5 F(6) 6 F(7) 7 F(10) 10 F(6) 6 F(4) 4 4 F(5) 5 5 F(6) 6 F(7) 7 F(10) 10 F(6) 6 F(8) 8 F(4) 4 4 F(5) 5 5 F(6) 6 F(7) 7 F(10) 10 F(6) 6 F(8) 8
530
var n,n1,i: integer;
<span>begin
</span><span> write('N = '); readln(n);
</span><span> if n mod 2=0 then i:=2
</span><span> else i:=1;
</span><span> n1:=1;
</span><span> repeat
</span><span> n1:=n1*i;
</span><span> i:=i+2;
</span><span> until i>n;
</span><span> writeln('N1 = ',n1);
</span><span>end.
</span>N = 6N1 = 48
N = 5N1 = 15
<span>
</span>
Искомое значение определяется как число сочетаний из 7 по 3:
C(n,m) = n!/(m!*(n-m)! = 7!/(3!*(7-3)!) = 7!/(3!*4!) = 35
1.
var a,k: integer;
begin
k:=0;
readln(a);
while a<>0 do
begin
if a mod 4 = 0 then k:=k+1;
readln(a);
end;
writeln('k = ',k);
end.
Пример:
5
20
24
0
k = 2
2.
var a,k: integer;
begin
k:=0;
readln(a);
while a<>0 do
begin
if (a>9)and(a<100)and(a mod 10 = 4) then k:=k+1;
readln(a);
end;
writeln('k = ',k);
end.
Пример:
5
20
24
204
4
0
k = 1
