Viết chương trình tổng các số tự nhiên lẽ hơn N. So vs N được nhập từ bàn phím

0 bình luận về “Viết chương trình tổng các số tự nhiên lẽ hơn N. So vs N được nhập từ bàn phím”

1. var n,i,s:longint;
   begin
   write(‘nhap so n=’);readln(n);
   s:=0;
   for i:=1 to n do s:=s+i;
   writeln(‘ tong n so nguyen la:’,s);
   readln;
   end.

   Bình luận

2. program oken;
   uses crt;
   var i,n,s:longint;
   begin
           clrscr;
           write(‘nhap 1 so bat ky: ‘); readln(n);
           i:=1; s:=0;
           while i<=n do
                   begin
                           if (i mod 2=1) then
                                   s:=s+i;
                           i:=i+1;
                   end;
           writeln(‘Tong cac so le tu 1 den ‘,n,’: ‘,s);
           readln;
   end.

   Bình luận