Viết chương trình tính tích của các số từ 15 đến 35 in ra màn ình tích đó.

0 bình luận về “Viết chương trình tính tích của các số từ 15 đến 35 in ra màn ình tích đó.”

1. program oken;
   uses crt;
   var i: byte;
       t: qword;
   begin
           clrscr;
           t:=1;
           for i:=15 to 35 do
                t:=t*i;
           Writeln(‘tich cua cac so tu 15 den 35: ‘,t);
           readln;
   end.

   Bình luận

2. program ctdt;
   uses crt;
   var i,tong:integer;
   (*———————–*)
   begin
   clrscr;
   tong:=0;i:=0;

   while tong<=100 do
   begin
   i:=i+1;
   tong:=tong+i;
   end;

   readln;
   end. 

   Bình luận