Viết chương trình in ra tổng các số lẻ nhỏ hơn hoặc bằng n ( Với n được nhập).

0 bình luận về “Viết chương trình in ra tổng các số lẻ nhỏ hơn hoặc bằng n ( Với n được nhập).”

1. – Cho S = 0.
   – Cho biến i chạy từ 1 đến n.
   – Nếu i chẵn ( i chia 2 dư 0) thì cộng thêm i vào S.
   – In ra S.
   làm bài
   Program In_So_Le;
   Uses crt;
   var S,i,n: integer;
   Begin
    Clrscr;
    Write(‘Nhap so n =’); readln(n);
    S:= 0;
    For i:=1 to n do if i mod 2 =1 then S:= S+i;
    Writeln(‘Tong cac so le nho hon ‘,n,’ la: ‘,S);
    readln
   end.

   Bình luận

2. ProgramCho S = 0.

   – Cho biến i chạy từ 1 đến n.
   – Nếu i chẵn ( i chia 2 dư 0) thì cộng thêm i vào S.
   – In ra S.
   

   Giải:

   Uses crt;
   var S,i,n: iteger;
   Begin
    Clrscr;
    Write(‘Nhap so n =’); readln(n);
    S:= 0;
    For i:=1 to n do if i mod 2 =1 then S:= S+i;
    Writeln(‘Tong cac so le nho hon ‘,n,’ la: ‘,S);
   

   Bình luận