Viết chương trình tính tổng các số tự nhiên từ 15-25.thông báo kết quả in trên màn hình

0 bình luận về “Viết chương trình tính tổng các số tự nhiên từ 15-25.thông báo kết quả in trên màn hình”

1. Program Hotboy 

   Uses crt;

   Var S,i : integer ;

   Begin

   Clrscr ;

   S:=0;

   For i:= 15 to 25 do

   S:=S+i;

   Writeln(‘tong tu 15 den 25 la’,S);

   Readln

   End.

   Bình luận

2. Var i s:byte

   For i:=15 to 25 do

   s:=S+i

   Write(‘S=’,S)

   Readln

   end

   Bình luận