Sử dụng câu lệnh lặp với số lần chưa bt trước.viết chương trình tính tổng và tích của 10 số tự nhiên đầu tiên giúp vs ạ

0 bình luận về “Sử dụng câu lệnh lặp với số lần chưa bt trước.viết chương trình tính tổng và tích của 10 số tự nhiên đầu tiên giúp vs ạ”

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

   Bình luận