Question

Найти значение
переменной К после выполнения программы.


Program
Z3_7;


Var       A: array[1..6] of integer;


i, k: integer;


begin


for i≔1 to 6 do


A[i]≔(I*9) mod 7;


k≔0;


for i≔1 to 6 do


if A[A[i]]<I then k≔k+1;


write(k);


end.

Answer 1

Var A: array[1..6] of integer;
i, k: integer;
begin
for i:=1 to 6 do
A[i]:=(I*9) mod 7;
k:=0;
for i:=1 to 6 do
if A[A[i]]<I then k:=k+1;
write(k);
end.
Ответ: k=3