Viêt chương trình tính tổng các số tự nhiên

0 bình luận về “Viêt chương trình tính tổng các số tự nhiên”

1. x, the: Số nguyên;
   Bắt đầu
   Clrscr;
   đếm: = 1; x: = 0;
   Trong khi (dem <= 100) làm
   Bắt đầu
   x: = x + dem;
   dem: = dem + 1;
   Kết thúc;
   Viết (‘Tong cua 100 số đó là’, x);

   Bình luận

2. Program tong;
   Uses crt;
   Var
   x,dem:Integer;
   Begin
   Clrscr;
   dem:=1;x:=0;
   While (dem<=100) do
   Begin
   x:=x+dem;
   dem:=dem+1;
   End;
   Writeln(‘Tong cua 100 so do la ‘,x);
   Readln;
   End

   Bình luận