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

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

1. 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

2. program oken;
   uses crt;
   var n,i,j: integer;
       s: qword;
   begin
           clrscr;
           write(‘nhap so n: ‘); readln(n);
           s:=0;
           for i:=1 to n do
              for j:=1 to 10 do
                 s:=s+i*j;
           writeln(‘S=’,s);
           readln;
   end.

   Bình luận