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

0 bình luận về “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”

1. var i,j,n,s: integer;

   begin

   s:= 0;

   write(‘Nhap so lan lap: ‘); readln(n);

   for i:= 1 to n do

       for j:= 1 to 10 do

           s:= s+(i*j);

   write(‘s = ‘,s);

   end. 

   Bình luận

2. uses crt;
   var m,i,j,kq:longint;
   begin
           write(‘Nhap m: ‘); read(m);
           for i:= 1 to m do
                   for j:=1 to 10 do
                           kq:=kq+(i*j);
           clrscr;
           write(‘Tong s la: ‘,kq);
           readln;
   end.

   Bình luận