Viết chương trình tính tổng các số lẻ từ 1 đến n với n được nhập từ bàn phím. sử dụng câu lệnh while -. do

0 bình luận về “Viết chương trình tính tổng các số lẻ từ 1 đến n với n được nhập từ bàn phím. sử dụng câu lệnh while -. do”

1. Program FNG;
   Uses crt;
   Var n,i,s: longint;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           s:=0; i:=1;
           While i<=n do
           Begin
                   s:=s+i;
                   inc(i);
           End;
           Write(‘S = ‘,s);
           Readln
   End.

   Bình luận

2. Program BTH;
   uses crt;
   var i,n,s:longint;
   Begin
           clrscr;
           write(‘Nhap n: ‘);readln(n);
           i:=1;
           While i<>n do
           Begin
                   If i mod 2=1 then s:=s+i;
                   i:=i+1;
           end;
           writeln(‘Tong day so tren la: ‘,s);
           readln;
   end.

   Bình luận