Câu Lệnh Lặp làm bài tập : Tính tổng các số từ 1 đến 15 ai giải được giải dùm a em sẽ cảm ơn

0 bình luận về “Câu Lệnh Lặp làm bài tập : Tính tổng các số từ 1 đến 15 ai giải được giải dùm a em sẽ cảm ơn”

1. program oken;

   uses crt;

   var sum,i:integer;

   begin

   clrscr;

   sum:=0;

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

   writeln(‘tong: ‘,sum);

   readln;

   end.

   Bình luận

2. Program Hotboy ;

   Uses crt;

   Var s,i : integer ;

   Begin

   Clrscr;

   For i:=1 to 15 do 

   S:=S+i; 

   Writeln(‘Tong la’,S);

   Readln

   End.

   Bình luận