Viết chương trình tính tổng N số tự nhiên đầu tiên với N là số tự nhiên nhập từ bàn phím sử dụng câu lênh for.. Do

0 bình luận về “Viết chương trình tính tổng N số tự nhiên đầu tiên với N là số tự nhiên nhập từ bàn phím sử dụng câu lênh for.. Do”

1. Program Hotboy;

   Uses crt;

   Var i,n,s : integer;

   Begin

   Clrscr;

   S:=0;

   Write(‘nhap so tu nhien n’); readln(n);

   For i:= 1 to n do

   i:=i+1;

   S:=s+i ;

   Write(‘tong cac so tu 1 den n la’,S); 

   Readln

   End.

   Bình luận

2. Program BTH;
   Uses crt;
   var a,b,c:longint;
   Begin
   clrscr;
   Write(‘Nhap n: ‘);readln(a);
   For b:=1 to a do
   c:=c+b;
   writeln(‘Tong day so tren la: ‘,c);
   readln;
   end.

   Bình luận