Code Pascal tính S=1*1+1*2...+1*10+2*1+...+2*10...+n*m không được

[minhbo (nguyen minh huy)]

Continuing the discussion from Nhờ giúp dùm bài tập Pascal sau:

@minhbo

Đề bài:
Tính tổng: S=11+12…+110+21+…+210…+nm, với n và m nhập từ bàn phím.
Ai biết giúp dùm với. Cảm ơn nhiều!

Mình lam như sau mà không được:

PROGRAM tinhtong;
USES crt;
VAR
m,n,i,j:INTEGER;
S:LONGINT;
BEGIN
    writeln('Chuong trinh tinh tong:')   ;
 writeln('S=1*1+1*2...+1*10+2*1+...+2*10...+n*m');
 write('nhap n:');
 readln(n);
 write('nhap m:');
 readln(m);  
 S:=0;
 FOR i:=1 TO n DO;
 FOR j:=1 TO m DO;
 S:=(S+ i)*j;
 write('S=',S);
 readln;
END.

[TheSky (Ngô Doãn Tuấn)]

FOR i:=1 TO n DO; FOR j:=1 TO m DO;

Bạn kiểm tra lại chỗ này
Lâu rồi mình không dùng pas không nhớ rõ lắm

[Gio (Gió)]

s:=s+i* j;
Có công thức gọn hơn: s:=(m* (m+1) div 2)* (n* (n+1) div 2);