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.

0 bình luận về “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.”

1. 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.

   Bình luận

2. 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 ̣

   Bình luận