Viết chuơ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. (Jup mik vs ạ đang cần gấp)

0 bình luận về “Viết chuơ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. (Jup mik vs ạ đang cần gấp)”

1. program tinhtong;

   uses crt;

   var n,m,i:integer;

         s:longint;

   begin

   repeat

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

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

   if (n>m) then write(‘n phai nho hon hoac bang m’);

   until n<=m;

   s:=0;

   for i:=n to m do

         s:=s+i;

   write(‘Tong cac so tu ‘,n,’ den ‘,m,’ la: ‘,s);

   readln

   end.

   Bình luận

2. program ukm;

   uses crt;

   var S:integer;

         i,n,m:integer;

   begin clrscr;

      writeln(‘Nhap so nguyen duong  n va m: ‘); readln(n,m);

        S:=0;

      for i:=n to m do

        S:=S+i;

      write(‘Tong la: ‘,S);

   readln;

   end.

   Bình luận