Viết chương trình tính tích từ 1 đến 10 (sử dụng lệnh lặp while…do) Giup mk vs mai nộp r !!!

0 bình luận về “Viết chương trình tính tích từ 1 đến 10 (sử dụng lệnh lặp while…do) Giup mk vs mai nộp r !!!”

1. uses crt;
   var i,tich:longint;
   begin
      clrscr;
      tich:=1; i:=1; 
      while i<=10 do
      begin
         tich:=tich*i;
         i:=i+1;
      end;
      writeln(‘Tich la: ‘,tich);
      readln
   end.
      

   Bình luận