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

2 câu trả lời

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

for i:= 1 to 100 do write(i,'   ');