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. program tong_tich;

   uses crt;

   var i,S,T:integer;

   begin clrscr;

        i:=1; S:=0; T:=1;

      while i <=10 do 

        begin

          i:=i+1;

         S:=S+i; T:=T*i;

       end;

      writeln(‘Tong 10 so tu nhien dau tien la: ‘,S);

      writeln(‘Tich 10 so tu nhien dau tien la: ‘,T);

   readln;

   end.

   Học tốt!

   Bình luận

2. uses crt;

   var i,tong,tich:integer;

   begin

   clrscr;

   i:=1;tong:=0;tich:=1;

   while i <= 10 then 

   begin

   tong:=tong+i;

   tich:=tich*i;

   i:=i+1

   end;

   writeln(‘Tong = ‘,tong);

   writeln(‘Tich = ‘,tich);

   readln;

   end.

   Bình luận