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 BTH;

   uses crt;

   var t:longint;

   i:byte;

   Begin

   clrscr;

   For i:=1 to 100 do

   Begin

   t:=t+i;

   end;

   writeln(‘Tong day so tren la: ‘,t);

   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