Viết chương trình pascal để tính tổng 100 số tự nhiên đầu tiên

0 bình luận về “Viết chương trình pascal để tính tổng 100 số tự nhiên đầu tiên”

1. uses crt;

   var i,s: integer;

   begin

   clrscr;

   for i:=1 to 100 do

   s:=s+i;

   writeln (‘tong la: ‘,s);

   readln;

   end.

   Bình luận

2. Var

   A, i: integer;

   begin

   A := 0;

   for i:= 1 to 10 do 

   A := A + i;

   writeln(A);

   readln;end.

   Bình luận