Найти значение переменной К после выполнения программы.Program Z3_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]] меньше I then k≔k+1; write(k);end.
Найти значение
переменной К после выполнения программы.
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]]
Гость
Гость
Ответ(ы) на вопрос:
Гость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]]
Не нашли ответ?
Похожие вопросы