Viết chương trình nhập vào 2 số n và m. Nếu m lớn hơn n thì tính tổng từ n đến m và ngược lại.

Question

lanngocha · Answer

uses crt;

var m,n,i,s:integer;

begin

clrscr;

writeln(́ hay nhap m ́ );readln(m);

writeln(́ hay nhap n ́ );readln(n);

if m>n then for i:=n to m do s=s+1

if m<n then for i:=m to n do s=s+1

end ̣

thuminh · Answer

program tinhtonglonhon;

uses crt;

var m,n,t:integer;

begin

clrscr;

write(‘Nhap n: ‘); readln(n);

write(‘Nhap m: ‘); readln(m);

t:=0;

if m>n then

begin

for i:=n to m do

t:=t+i;

end

else if n>m then

for i:=m to n do

t:=t+i;

write(‘Tong la: ‘,t);

readln

end.