Viết chương trình tính tổng 10 số tự nhiên đầu tiên. tặng hết 1k điểm

0 bình luận về “Viết chương trình tính tổng 10 số tự nhiên đầu tiên. tặng hết 1k điểm”

1. $\text{chào bạn! có gì sai bl nha}$

   Program tong; 
   var S,i:integer; 
   Begin
   S:=0; 
   for i:=1 to 10 do S:=S+i; 
   writeln(‘ tong cua 10 so tu nhien dau tien:’,S);
   readln 
   end.

   Bình luận

2. ._. Bạn tham khảo nhé (thật ra là có thể `Repeat …Until ` nữa :))))

   Cách `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 10 so do la’,S);

   Readln

   End.

   Cách `2`

   Program Hotboy ;

   Uses crt;

   Var S,i:byte;

   Begin

   Clrscr;

   i:=1; S:=0;

   While i<=10 to 

   Begin

   S:=S+i;

   End;

   Write(‘Tong can tim la’,S);

   Readln

   End.

   Bình luận