Bài 1: Viết câu lệnh lặp for … do tính tổng các số từ 1 đến 15. Bài 2: Viết chương trình nhập số tự nhiên N từ bàn phím (N>0), tính giai thừa của N (

0 bình luận về “Bài 1: Viết câu lệnh lặp for … do tính tổng các số từ 1 đến 15. Bài 2: Viết chương trình nhập số tự nhiên N từ bàn phím (N>0), tính giai thừa của N (”

1. 1)For i:=1 to 15 do S:=S+i;

   2)Program TINH_N_GIAI_THUA;
   Uses crt;
   Var i,n,gt:integer;
   Begin
      Clrscr;
      Writeln(‘ TINH N GIAI THUA:’);
      Writeln(‘———————————-‘);
      Write(‘Nhap n =’); readln(n);
      gt:=1;
      For i:=1 to n do
      gt:=gt*i;
      Writeln(n, ‘!=’,gt);
      Readln;
   End.

   3) For i:=1 to 20 do if n mod 2<>0 then S:=S+i;

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

   Bình luận

2. Bài 1:

   program tinhtong;

   uses crt;

   var i,s:integer;

   begin

        clrscr;

        S:=0;

        for i:=1 to 15 do S:=S+i;

        write(‘Tong cac so tu 1 den 15 la: ‘,s);

        readln;

   end.

   Bài 2:

   program giaithua;

   uses crt;

   var n,i:byte;

         gt:int64;

   begin

        clrscr;

        write(‘Nhap so can tinh: ‘);  readln;

        gt:=1;

        for i:=1 to n do gt:=gt*i;

        write(n,’!= ‘,gt);

        readln;

   end.

   Bài 3:

   program tinhtong;

   uses crt;

   var i,s:integer;

   begin

        clrscr;

        S:=0;

        for i:=1 to 20 do

              if i mod 2=1 then S:=S+i;

        write(‘Tong cac so le tu 1 den 20 la: ‘,s);

        readln;

   end.

   Bài 4:

   program tinhtong;

   uses crt;

   var i,s:integer;

   begin

        clrscr;

        S:=0;

        for i:=1 to 20 do

             if i mod 2=0 then S:=S+i;

        write(‘Tong cac so chan tu 1 den 20 la: ‘,s);

        readln;

   end.

   Bình luận