hãy viết câu lệnh in ra 100 số tự nhiên từ 1 đến 100

0 bình luận về “hãy viết câu lệnh in ra 100 số tự nhiên từ 1 đến 100”

1. for i:= 1 to 100 do write(i,’   ‘);

   Bình luận

2. Bạn thử lệnh sau nhé:

   Program tong; 

   Uses crt;

   Var

   x,dem:Integer;

   Begin

   Clrscr;

   dem:=1;x:=0;

   While (dem<=100) do

   Begin

   x:=x+dem;

   dem:=dem+1;

   End;

   Writeln(‘Tong cua 100 so do la ‘,x);

   Readln;

   End.

                Chúc bn học tốt!!!        <3

   Bình luận