Viết chương trình tính tổng T = 1+2+3+…+100

0 bình luận về “Viết chương trình tính tổng T = 1+2+3+…+100”

1. Program tinh_tong;

   Uses crt;

   Var S,i: integer;

   Begin

   clrscr;

   S:=0;

   for i:=1 to 100 do S:=S+i;

   Writeln(‘ Tong la: ‘,S);

   readln

   End.

   Trả lời

2. uses crt;

   var t,i:integer;

   begin

   clrscr;

   for i:=1 to 100 do

   t:=t+i;

   write(‘T= ‘,t);

   readln;

   end.

   Trả lời