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
2 câu trả lời
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.
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.
Câu hỏi trong lớp
Xem thêm