viết câu lệnh lặp for do tính tổng các số từ 1 đến 15.

0 bình luận về “viết câu lệnh lặp for do tính tổng các số từ 1 đến 15.”

1. Program hoidap;

   Uses crt;
   Var S, i: integer;
   Begin
   Clrscr;

   s:=0;
   for i:=1 to 15 do s:=s+i;
   write(‘s=‘,s);
   readln;

   End.

   Bình luận

2. Program viet_chuong_trinh_tinh_tong;
   Uses Crt; 
   Var i,s:integer; 
   Begin 
   Clrscr; 
   i:=2; 
   While (i>1) and (i<=15) do 
   Begin 
   s:=s+i; 
   i:=i+2; 
   End; 
   Writeln(S); 
   Readln; 
   End.

   Bình luận