var a:array [1..4,1..6] of integer;
i,j:integer;
begin
for i:=1 to 4 do
begin
for j:=1 to 6 do
begin
if j mod 2 <> 0 then a[i,j]:=1
else a[i,j]:=2;
write (a[i,j],' ')
end;
writeln
end
end.
Получаем обычную схему "И", на входы которой подаются сигналы А и В.
--------
А ---| & |
В ---| |---- F
-------
1. Программа суммирует числа от 1 до 10, следовательно в ответе будет сумма: 1 + 2 + 3 + 4 + 5 + 6 + 7 + 8 + 9 + 10 = 55.
1.1.
<em>var k,s:integer;</em>
<em>begin</em>
<em>s:=0;</em>
<em>k:=1;</em>
<em>repeat
</em>
<em>s:=s+k;</em>
<em>k:=K+1;</em>
<em>until k >10;
</em>
<em>write(s);</em>
<em>end.</em>
<em>2. в первом цикле
</em>
for n:=1 to 100 do
A[n]:=n-10;
<em>вычисляются элементы массива А по формуле</em> A[n]:=n-10<em>, первые 10 из них будут отрицательные.
</em>
во втором цикле
for n:=1 to 100 do
B[n]:=A[n]*n;
<em>вычисляются элементы массива В по формуле </em>B[n]:=A[n]*n, а т.к. первые 10 элементов массива А отрицательные числа, то и 10 первых элементов массива В будут отрицательными, а т.к. в массиве В 100 элементов, то положительных будет 90.
<em>
</em>
Var x,a,s:real; i,n:integer;
begin
write('x = '); readln(x);
write('n = '); readln(n);
s:=0;
a:=-1;
for i:=1 to n do
begin
a:=-a*x;
s:=s+a/i;
end;
writeln('s = ',s);
end.
Пример:
x = 0.5
n = 4
s = 0.401041666666667
1)1 байт = 8 бит
12288/8 = 1536 байт
2)К=2048, I-1/512 Mб, i-?
решение: I=K*i i=I/K
I=1/512*1024*1024*8=16384 бит
i=I/K=16384/2048=8 бит
если i=8 бит, то мощность алфавита равна N=256 символов (т.к. 2 в 8 степени равно 256)