30/09/2018, 19:20
Cần giúp bài tập Pascal sau đây:
Continuing the discussion from Nhờ giúp dùm bài tập Pascal sau:
Đề 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=11+12…+110+21+…+210…+nm’);
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.
Bài liên quan
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
s:=s+i* j;
Có công thức gọn hơn: s:=(m* (m+1) div 2)* (n* (n+1) div 2);