viết chương trình tính tổng các số lẻ nhỏ hơn hoặc bằng n

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”

1. program in_so_le_nho_hon_hoac_bang_n;
   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;
   writeln (‘tong cua cac so la nho hon hoac bang ‘,n,’ la: ‘,s);
   writeln (‘========== HET ==========’);
   readln;
   end.

   Bình luận

2. Program bai1;

   uses crt;

   var dem,n,i: integer;

   begin clrscr;

   write(‘nhap n =’);

   readln(n);

   dem:=0;

   for i:= 1 to n do

   if i mod 2 = 1 then

   begin write(i:3,’,’);

   dem:= dem+1

   ; if dem mod 15 = 0 then writeln

   ; end;

   readln;

   Bình luận