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)

   uses crt;
   var i,n,s:longint; 
   begin
   clrscr;
      write(‘N=’);readln(n);
      s:=0;
      for i:=0 to n Do s:=s+i;
      writeln(‘S=’,s);
   readln
   end.

   2)

   uses crt;
   var i,n,p:longint; 
   begin
   clrscr;
      write(‘N=’);readln(n);
      P:=1;
      for i:=1 to n Do p:=p*i;
      writeln(‘P=’,p);
   readln
   end.

   3)

   uses crt;
   var i,n,s:longint; 
   begin
   clrscr;
      i:=-1; s:=0;
      while s<=1000 do begin inc(i); s:=s+i; end;
      writeln(‘S=’,s);
   readln
   end.

   Bình luận

2. 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.

                         

   Bình luận