Inc(A,D) - Данная процедура увеличивает содержимое переменной «A» на значение переменной «D».
1) <span>F(n) = (8-2)*(8-1)+2 =44
2) </span><span>F(w) = 5*F(w-l)- 4*F(w-2) при w > 2.
</span><span>F(w) = 5*(15-l)- 4*(15-2) = 5*14*13 = 910
</span>
1) const N = 10;
var a:array[1..N] of integer;
i, k: integer;
begin
k:=0;
for i:=1 to N do
a[i]:= random((80) - 20);
if (a[i] mod 10 = 6) and (a[i] mod 2 = 0) then
k:=k+1;
end;
writeln(k);
2)const N = 10;
var a:array[1..N] of integer;
i, k: integer;
begin
k:=0;
for i:=1 to N do
a[i]:=random(100);
for i:=1 to N-1 do
if a[i] = a[i+1] then
k:=k+1;
writeln(k);
end.