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 window

   uses crt;

   var sum,i:integer;

   begin

   clrscr;

   sum:=0;

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

   writeln(‘tong: ‘,sum);

   readln;

   end.

   Chúc bạn học tốt!

   Bình luận