Найти значение переменной К после выполнения программы.Program Z3_7;Var A: array[1..6] of...

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]]

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]]write(k);
end.
Ответ: k=3