1. viết chương trình tính tổng 20 stn đầu tiên 2. viết chương trình tính tổng của các số chẵn trong 50 số tự nhiên đầu tiên 3.viết chương trình tính

0 bình luận về “1. viết chương trình tính tổng 20 stn đầu tiên 2. viết chương trình tính tổng của các số chẵn trong 50 số tự nhiên đầu tiên 3.viết chương trình tính”

1. Câu 1:

   uses crt;
   var i,s:longint;
   begin
         clrscr;
         for i:=1 to 20 do inc(s,i);
         writeln(‘Tong: ‘,s);
         readln;
   end.

   Câu 2:

   uses crt;
   var i,s:longint;
   begin
         clrscr;
         for i:=1 to 50 do if i mod 2=0 then inc(s,i);
         writeln(‘Tong cac so chan: ‘,s);
         readln;
   end.

   Câu 3:

   uses crt;
   var i,n,gt:longint;
   begin
         clrscr;
         write(‘Nhap n: ‘); readln(n);
         gt:=1;
         for i:=n downto 1 do gt:=gt*i;
         writeln(n,’!=’,gt);
         readln;
   end.

   Bình luận

2. 1) 

   Program Hotboy ;

   Uses crt;

   Var i,s : byte;

   Begin

   Clrscr;

   S:=0;

   For i:=1 to 20 do

   S:=S+i;

   Inc(i);

   Write(‘tong la’,S);

   Readln

   End.

   2)

   Program Hotboy ;

   Uses crt;

   Var i,s : byte;

   Begin

   Clrscr;

   S:=0;

   For i:=1 to 50 do

   If ( i mod 2=0) then

   S:=S+i;

   Write(‘tong la’,S);

   Readln

   End.

   3) 

   Program Hotboy;

   Uses crt;

   Var n, gt:longint;

   Begin

        clrscr;

        Repeat

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

        until n>0;

        gt:=1;

        while n>0 do

        begin

        gt:=gt*n;

        n:=n-1;

        end;

        writeln(‘Giai thua cua n la: ‘,gt);

        readln

   Bình luận