viết chương trình tính tổng các số lẻ nhỏ hơn hoặc bằng n, với n đc nhập từ bàn phím

0 bình luận về “viết chương trình tính tổng các số lẻ nhỏ hơn hoặc bằng n, với n đc nhập từ bàn phím”

1. uses crt;
   var n, i, s: integer;
   begin
   clrscr;
   textcolor (white);
   write (‘nhap n: ‘);  readln (n);
   i:=0;
   s:=0;
   repeat
   i:=i+1;
   for i:=i to n do
   if i mod 2 = 1 then
   begin
   s:=s+i;
   end;
   until i = n;
   textcolor (lightblue);
   writeln (‘tong cua cac so la nho hon hoac bang ‘,n,’ la: ‘,s);
   textcolor (green);
   writeln (‘========== HET ==========’);
   readln;
   end.

   Bình luận

2. uses crt;
   var n, i, s: integer;
   begin
   clrscr;
   write (‘nhap n: ‘);  readln (n);
   i:=0;
   s:=0;
   repeat
   i:=i+1;
   for i:=i to n do
   if i mod 2<>1 then
   begin
   s:=s+i;
   end;
   until i=n;
   writeln (‘tong cua cac so la nho hon hoac bang ‘,n,’ la: ‘,s);
   readln;
   end.

   Bình luận