Dùng vòng lặp for … do viết chương trình pascal in ra và tính tổng các số lẻ nhỏ hơn hoặc bằng n? Với n là số tự nhiên nhập từ bàn phím in ra kết qu

0 bình luận về “Dùng vòng lặp for … do viết chương trình pascal in ra và tính tổng các số lẻ nhỏ hơn hoặc bằng n? Với n là số tự nhiên nhập từ bàn phím in ra kết qu”

1. program tong;

   uses crt;

   var n,i,T: integer;

   Begin

            clrscr;

            write(‘Nhap n: ‘); readln(n);

            write(‘Cac so le < ‘,n,’: ‘);

            for i:=1 to n do

                 if i mod 2<>0 then

                 begin

                          write(i,’  ‘);

                          T:=T+i;

                 end;

            writeln;

            write(‘T = ‘,T);

            readln

   End.

   Bình luận

2. program tinhtong;
   uses crt;
   var tong,i,n : integer;
   begin
   Read(n);
   for i:=1 to n do
     begin
     if i mod 2 = 1 then tong := tong + i;
     end;
   Writeln(tong);
   end.

   Bình luận