Вычисляемое в программе значение переменной m для входного данного 3 равно… For i:=1 to 4 do

For j:=1 to 4 do

If j mod 2=0 then a[i,j]:=i+j

Else a[i,j]:= i+1;

k:=strtoint(Edit1.text);

m:=a[k+1,k];

For j:=k+1 to 4 do

m:=m+a[k,j]+a[j,k];

label1.caption:=inttostr(m);

Dashon2000    2   14.12.2020 09:29    0