Ответ: 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.Ответ: k=3
Найти значение
переменной К после выполнения программы.
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. — Правильный ответ на вопрос найдете ниже
08.01.2020 · 1