viết chương trình tính tích các số tự nhiên từ 100 đến 1000

viết chương trình tính tích các số tự nhiên từ 100 đến 1000

0 bình luận về “viết chương trình tính tích các số tự nhiên từ 100 đến 1000”

  1. program tich;

    uses crt;

    var i: integer;

          S: longint;

    Begin

             clrscr;

             S:=1;

             for i:=100 to 1000 do S:=S*i;

             write(‘Tich = ‘,S);

             readln

    End.

    Bình luận
  2. program tinhtich;

    Var i : integer;

    T : longint;

    Begin

    clrscr;

    T:=1;

    For i : = 100 to 1000 do T:=T*i ;

    writeln(‘Tich cac so tu nhien 100 den 1000 la: ‘,T);

    readln;

    end.

    Bình luận

Viết một bình luận