viết chương trình nhập vào số nguyên N. Tinh và hiển thị tổng các số tự nhiên từ 1 đến N

0 bình luận về “viết chương trình nhập vào số nguyên N. Tinh và hiển thị tổng các số tự nhiên từ 1 đến N”

1. program bai_tap_1;

   uses        crt;

   var          n,s,i: integer;

   begin

   write (‘Tong n so la’);

   readln (n);
   For i := 1 to n do s := s+i ;

   writeln (s);

   readln;

   end.

   Bình luận

2. program tinhtong;

   var  i, N: integer;

           S: longint;

   begin 

   write (‘ nhap vao so N:’); readln(N);

   S:= 0;

   for i:= 1 to N do S:= S+i;

   writeln (‘ tong cua’, N,’ la S=’, S);

   readln 

   end. 

   chúc bạn học tốt nhaaaaa~

   Bình luận