1) Viết chương trình tính S = 0 + 1 + 2 +… + n? 2) Viết chương trình tính P = 1*2*3*…*n? 3) Viết chương trình tìm S = 0+1+2+- nhó nhất lớn hơ

0 bình luận về “1) Viết chương trình tính S = 0 + 1 + 2 +… + n? 2) Viết chương trình tính P = 1*2*3*…*n? 3) Viết chương trình tìm S = 0+1+2+- nhó nhất lớn hơ”

1. 1.

   Program bai_1;

   Var i,n:integer;

         S:real;

   Begin

            S:=1; i:=1;

             While i<= n do

                 begin

                        S:=S+1;

                         i:= i+1;

                 end;

                 Write(S);

   End.

   2.Program FNG;
   Uses crt;
   Var n,i: integer;
       p: real;;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           p:=1;
           For i:=1 to n do
                   p:=p*i;
           Write(‘P = ‘,p);
           Readln
   End.

   3.

   Program Tinh_Tong;
   Var i:integer;
   S:real;
   Begin
   S:=0;
   For i:=1 to 1000 do S:=S+i;
   Write(‘Tong S=’,S);
   Readln;
   End.

   4. Ko bt làm

   Bình luận

2. 1 . For i:=1 to N do 

         S:=S+i;

   2. P:=1;

    For i:=1 to N do

        P:=P*i;

   3 .  Repeat

             i:=i+1;

             S:=S+i;

         Until S >1000;

   4 . Ko bt làm thông cảm

   Bình luận