Вычисляемое в программе значение переменной 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);

Question

Информатика: Вычисляемое в программе значение переменной 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);

Istominyura · Accepted Answer

//PascalABC.NET версия 3.2, сборка 1389 //Если программа не запускается, то обновите версию uses System.Linq; begin     begin         writeln( I );         var n := ReadInteger( n= );         Writeln((1 + 1 + Power(2, n - 1)) * n / 2);     end;          begin         writeln;         writeln( II );         var n := ReadInteger( n= );         Writeln(n mod 11 = 0 ? YES : NO );              end;          begin         writeln;         writeln( III );         var a := ReadArrInteger( Документы , ReadInteger(...

MOGZ ответил