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 FNG;
   Uses crt;
   Var i,s: longint;
   Begin
           Clrscr;
           For i:=1 to 15 do s:=s+i;
           Write(‘S = ‘,s);
           Readln
   End.

   Bình luận