1. Вычисляемое в программе значение переменной 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-1];
label1.caption:=inttostr(m);

Ksuhan13    3   27.10.2020 09:27    1