Найти значение

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

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

Question

Информатика

Костяха

22 октября, 09:11

Найти значение

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

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

+4

Ответы (1)

Знаете ответ на вопрос?

Агнесса · 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

Найти значениепеременной К после выполнения программы.ProgramZ3_7;Var A: array[1 ... 6] of integer;i, k: integer;beginfor i≔1 to 6 doA[i]≔ (I*9) mod 7;k≔0;for i≔1 to 6 doif A[A[i]]

Найти значение

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

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