Tính tổng từ 1 đến 10 bằng lệnh lặp for… do

0 bình luận về “Tính tổng từ 1 đến 10 bằng lệnh lặp for… do”

1. Program Hotboy ;

   Uses crt;

   Var s,i : byte ;

   Begin

   Clrscr;

   S:=0;

   For i:=1 to 10 do

   S:=S+i;inc(i);

   Write(‘tong tu 1 den 10 la’,S);

   Readln

   End.

   Bình luận

2. Program BTH;

   Uses crt; 

   Var i,s:longint;

   Begin

   Clrscr;

   s:=0;

   For i:=1 to 10 do

   s:=s+i;

   Writeln(‘Tong day so tren la: ‘,s);

   Readln;

   End.

   Bình luận