Tính tích 1/3…1/8 bằng câu lệnh For…to…do. viết chương trình

0 bình luận về “Tính tích 1/3…1/8 bằng câu lệnh For…to…do. viết chương trình”

1. program ct;

   uses crt;

   var T:real;

         i:integer;

   begin clrscr;

        T:=1;

      for i:=3 to 8 do

        T:=T*(1/i);

      writeln(‘Tich la: ‘,T:4:2);

   readln;

   end.

   Học tốt!

   Bình luận

2. uses crt;

   var i:integer;

         p:real;

   begin

   clrscr;

   begin

   p:=1;

   for i:=3 to 8 do

   p:=p*1/i;

   end;

   writeln(‘tich :’,p);

   readln;

    end;

   Bình luận