Viết chương trình tính tổng biểu thức sau:S=1*1+1*2+...+1*10+2*1+2*2+...+M*N(dùng For ...do)

2 câu trả lời

uses crt;

var i, j, M, N, S : longint;

begin

clrscr;

write('Nhap so M, N : '); readln(M, N);

for i := 1 to M do

for j := 1 to N do S := S + i * j;

write('S = ', S);

readln

end.

for i:=1 to m do for j:=1 to n do t:=t+i*j;//t biến kq

Nhập xuất tự làm