Tính tổng các số lẻ từ 1 đến n với n là số nguyên được nhập từ bàn phím (FreePassCal

0 bình luận về “Tính tổng các số lẻ từ 1 đến n với n là số nguyên được nhập từ bàn phím (FreePassCal”

1. uses crt;
   var n,i,s:longint;
   begin
         clrscr;
         write(‘Nhap n: ‘); readln(n);
         for i:=1 to n do if i mod 2=1 then inc(s,i);
         writeln(‘Tong cac so le tu 1 den ‘,n,’: ‘,s);
         readln;
   end.

   Bình luận

2. program kaito;

   uses crt;

   var i, n, s: integer;

   begin

      clrscr;

      write(‘Nhap so n: ‘); readln(n);

      for i:=1 to n do if (i mod 2 <> 0) then s:=s+i;

      writeln(‘Tong cac so le tu 1 den ‘,n,’ la: S = ‘,s); 

      readln

   end.

   CHÚC BẠN HỌC TỐT!!!

      

   Bình luận