Дана программа. Определить результат выполнения. program N02;
const A: array [1..6] of integer = (16,1,8,2,4,4);
var i,k: integer;
begin
k:=0;
for i:=2 to 6 do
if A[i-1]>=A[i] then k:=k+1;
write(k)
end.

Question

Информатика: Дана программа. Определить результат выполнения. program N02; const A: array [1..6] of integer = (16,1,8,2,4,4); var i,k: integer; begin k:=0; for i:=2 to 6 do if A[i-1] =A[i] then k:=k+1; write(k) end.

aika113 · Answer

Ответ: истинности для некоторых троичных логических функцийx 2 1 0 2 1 0 2 1 0y 2 2 2 1 1 1 0 0 0min(x,y) 2 1 0 1 1 0 0 0 0x 2 1 0 2 1 0 2 1 0y 2 2 2 1 1 1 0 0 0max(x,y) 2 2 2 2 1 1 2 1 0x 2 1 0 2 1 0 2 1 0y 2 2 2 1 1 1 0 0 0f2tn22310 0 0 0 0 2 2 0 2 1вроде так^:...

Дана программа. Определить результат выполнения. program N02; const A: array [1..6] of integer = (16,1,8,2,4,4); var i,k: integer; begin k:=0; for i:=2 to 6 do if A[i-1]>=A[i] then k:=k+1; write(k) end.

Дана программа. Определить результат выполнения. program N02;
const A: array [1..6] of integer = (16,1,8,2,4,4);
var i,k: integer;
begin
k:=0;
for i:=2 to 6 do
if A[i-1]>=A[i] then k:=k+1;
write(k)
end.