1)b=1 a=2
b=2 a=4
b=3 a=7
b=4 a=11
b=5 a=16
2)1)a=1 b=0
2)пока b не равно 5
3)b+=1, a+=b или b=b+1, a=a+b
4)если b=5 конец цикла 2
5)вывод a,b
3)-3
var a:array [1..100] of integer;
i,n:integer;
s:string;
Begin
randomize;
for i :=1 to 100 do
begin
a[i]:= random(1000)+1000;
a[i]:=a[i] mod 100;
a[i]:=a[i] div 10;
if a[i] mod 2 = 0 then n=n+1;
end;
writeln(n);
End.
А||В||~В||А•~В
0||0||1||0
0||1||0||0
1||0||1||1
1||1||0||0
3Мбайт = 3*1024*8 Кбит = 24576 Кбит
24576 / 2048 = 12 сек
t = 12 сек