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

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

1. $#Quân$

   program tinh_tong;

   uses crt;

   var i,t:integer;

   begin

        clrscr;

        t:=0;

        for i:=1 to 15 do t:=t+i;

        write(‘Tong 15 so tu nhien dau tien la: ‘,t);

        readln;

   end.

   Bình luận