1. Viết chương trình tính tổng các số tự nhiên chắn từ 1 => N, biết N là số tự nhiên bất kỳ được nhập từ bàn phím 2. Giống câu trên, nhưng thay từ

0 bình luận về “1. Viết chương trình tính tổng các số tự nhiên chắn từ 1 => N, biết N là số tự nhiên bất kỳ được nhập từ bàn phím 2. Giống câu trên, nhưng thay từ”

1. Program Tinh_tong_so_le;
   Uses CRT;
   Var i,n,S:integer;
   sl:boolean;
   Begin
   Clrscr;
   Write(‘Nhap so n:’);Readln(n);
   sl:=True;
   For i:=1 to n do
   Begin
   If sl=True then S:=S+i;
   sl:= not True;
   End;
   Writeln(‘Tong cua n so le la:’, S);
   Readln;
   End.

   @xin ctlhn

   2

   Program Tinh_tong_so_chan;
   Uses CRT;
   Var i,n,S:integer;
   sl:boolean;
   Begin
   Clrscr;
   Write(‘Nhap so n:’);Readln(n);
   sl:=True;
   For i:=1 to n do
   Begin
   If sl=True then S:=S+i;
   sl:= not True;
   End;
   Writeln(‘Le cua n so le la:’, S);
   Readln;
   End.

   Bình luận

2. 1. Program sochan;

   Uses crt,

   Var i,S,n: Longint;

   Begin

   Readln(n);

   S:=0;

   For i:=1 to n do if n mod 2=0 then S:=S+i;

   Writeln(‘S=’,S);

   Readln;

   End.

   2. Program sole;

   Uses crt;

   Var i,S,n: Longint;

   Begin

   Readln(n);

   S:=0;

   For i:=1 to n do if n mod 2=1 then S:=S+i;

   Writeln(‘S=’, S);

   Readln;

   End.

   Bình luận