Em hãy viết chương trình tính tổng các số nguyên liên tiếp từ N -> M với N, M là các số nguyên nhập vào từ bàn phím?
Mong các bác giải giúp e với! :'(((
Em hãy viết chương trình tính tổng các số nguyên liên tiếp từ N -> M với N, M là các số nguyên nhập vào từ bàn phím? Mong các bác giải giúp e với! :'(
By Josie
uses crt;
var m,n,i,s: longint;
begin
crlscr;
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.
program tongso;
uses crt;
var n,m,i:integer;
s:longint;
begin
clrscr;
repeat
write(‘Nhap N: ‘); readln(n);
write(‘Nhap M: ‘); readln(m);
if n>m then writeln(‘N phai be hon hoac bang M’);
until n<=m;
s:=0;
for i:=n to m do
s:=s+i;
writeln(‘Tong cac so nguyen tu ‘,n,’ den ‘,m,’ la: ‘,s);
readln
end.