viết trương trình tính tổng các số tự nhiên từ n đến m (n

15/07/2021 Bởi Ariana

0 bình luận về “viết trương trình tính tổng các số tự nhiên từ n đến m (n<m)”

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

   Bình luận

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

   Bình luận