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! :'(

0 bình luận về “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! :'(”

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

   Bình luận

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

   Bình luận