viết chương trình tính tích S = 1.2.3.4.5.6.7.8

viết chương trình tính tích S = 1.2.3.4.5.6.7.8

0 bình luận về “viết chương trình tính tích S = 1.2.3.4.5.6.7.8”

  1. program Tinh_tich;

    uses crt;

    var i,S: integer;

    Begin

             clrscr;

             S:=1;

             for i:=1 to 8 do S:=S*i;

             write(‘Tich 8 chu so dau tien = ‘,S);

             readln

    End.

    Bình luận

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