Viết chương trình pascal về tính tổng 10 số tự nhiên đầu tiên bằng lệnh lặp while-do và sử dụng hằng

0 bình luận về “Viết chương trình pascal về tính tổng 10 số tự nhiên đầu tiên bằng lệnh lặp while-do và sử dụng hằng”

1. Program Hotboy;

   Uses crt;

   const n=10;

   var i,tong:integer;

   begin

   clrscr;

    i:=0;tong:=0;

    while i<n do 

      begin

        tong:=tong+i;i:=i+1;

      end;

   write(‘tong la: ‘,tong);

   readln

   end.

   Bình luận

2. uses crt;

   const n=10;

   var i,t:integer;

   begin

    i:=0;t:=0;

    while i<n do 

      begin

        inc(i);

        t:=t+i

      end

   clrscr;

   write(‘tong la: ‘,t);

   readln;

   end.

   Bình luận