Question

Viết chương trình tính tổng tích các biểu thức S = 1*1+1*2+…1*10 + 2*1+2*2+…+…+ M*N

Answer 1

Program tong_tich;

Var          i,j,m,n:integer;S:longint;

Begin

                Write('moi ban nhap m:');readln(m);

                Write('moi ban nhap n:');readln(n);

                 S:=0;

                  For i:=1 to m do

                       For j:=1 to n do S:=S+i*j;

                  Write(S);

                  Readln;

End.