nhập số nguyên dương n. viết chương trình tính tổng các số lẻ nhỏ hơn hoặc bằng n. nhanh nha cần gấp

0 bình luận về “nhập số nguyên dương n. viết chương trình tính tổng các số lẻ nhỏ hơn hoặc bằng n. nhanh nha cần gấp”

1. Giải :

   Program Tinh_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

   xin hay nhất ạ 

   Bình luận

2. 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