VIẾT CHƯƠNG TRÌNH IN RA CÁC SỐ LẺ NHỎ HƠN HOẶC BẰNG N

0 bình luận về “VIẾT CHƯƠNG TRÌNH IN RA CÁC SỐ LẺ NHỎ HƠN HOẶC BẰNG N”

1. uses crt;

   var x,i,n: integer;

   Begin

   Clrscr;

   Write(‘Nhap so n =’); readln(n);

   x:= 0;

   For i:=1 to n do if i mod 2 =1 then x:= x+i;

   Writeln(‘Tong cac so le nho hon ‘,n,’ la: ‘,x);

   readln

   end.

   # Hok tốt!

   Bình luận

2. uses crt;

   var x,i,n: integer;

   Begin

   Clrscr;

   Write(‘Nhap so n =’); readln(n);

   x:= 0;

   For i:=1 to n do if i mod 2 =1 then x:= x+i;

   Writeln(‘Tong cac so le nho hon ‘,n,’ la: ‘,x);

   readln

   end.

   Bình luận