Question

VCT in ra các số tự nhiên từ 1 đến 100 và từ 1 đến n dùng lệnh while...do 

giúp vs !!!!

Answer 1

Answer 2

uses crt;

var i,i1,n:integer;

begin

clrscr;

writeln('Cac so tu nhien tu 1 den 100 la: ');

i:=1;

while i<=100 do 

begin

write(i:4);

inc(i);

end;

writeln;

write('Nhap n='); readln(n);

writeln('Cac so tu nhien tu 1 den ',n,' la: ');

i:=1;

while i<=n do 

  begin

write(i:4);

i:=i+1;

end;

readln;

end.