VCT nhập vào 1 số n sau đó in ra màn hình tổng các số lẻ nhỏ hơn hoặc bằng n

0 bình luận về “VCT nhập vào 1 số n sau đó in ra màn hình tổng các số lẻ nhỏ hơn hoặc bằng n”

1. uses crt;

   var i,n,s: integer;

   begin

   clrscr;

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

   for i:=1 to n do

   if i mod 2<>0 then s:=s+i;

   writeln (‘tong la: ‘,s);

   readln;

   end.

   Bình luận

2. program Min;
   uses crt;
   var i,n:integer;
   begin
      clrscr;
      write(‘Nhap n: ‘); readln(n);
      write(‘Cac so le nho hon hoac bang ‘,n,’la :’);
      for i:=1 to n do if i mod 2 = 1 then write(i:4);
      readln
   end.

   Bình luận