Em hãy viết chương trình tính tổng các số nguyên liên tiếp từ n đến m với n,m là các số nguyên dương nhập vào từ bàn phím. Giúp vs ạ
2 câu trả lời
program abc;
uses crt;
var n,m,s,i:longint;
begin
clrscr;
write('Nhap n: '); readln(n);
write('Nhap m: '); readln(m);
for i:=n to m do s:=s+i;
writeln('Tong cac so tu ',n,' den ',m,' la: ',s);
readln
end.
xin hay nhất ạ
uses crt;
var n, m, cnt: longint;
begin
clrscr;
read(n, m);
cnt:=(m - n) + 1;
writeln(((m + n) * cnt) div 2);
readln; readln;
end.
Câu hỏi trong lớp
Xem thêm