viết trương trình tính tổng các số tự nhiên từ n đến m (n
viết trương trình tính tổng các số tự nhiên từ n đến m (n
By Ariana
By Ariana
uses crt;
var n,m,tong,i:longint;
begin
clrscr;
write(‘ Nhap n: ‘);
readln(n);
write(‘Nhap m: ‘);
readln(m):
for i:=n to m do tong:=tong+i;
writeln(‘Tong la: ‘,tong);
readln;
end.
uses crt;
var n,m,i,t:integer;
BEGIN
clrscr;
write(‘Nhap n: ‘);readln(n);
write(‘Nhap m: ‘);readln(m);
t:=0;
for i:=n to m do
t:=t+i;
writeln(‘Tong cac so tu nhien tu ‘,n,’ den ‘,m,’ la: ‘,t);
readln
END.