Question

Viết chương trình đưa ra màn hình các số nhỏ hơn 30 ( số tự nhiên ) bằng hai cách :- Dùng lệnh while ...do-dùng lệnh for ...do

Answer 1

Cách 1: while..do

Program HOC24;

var i: integer;

begin

i:=1;

while i<30 do

begin

write(i,' ');

i:=i+1;

end;

readln

end.

Cách 2: for..do

Program HOC24;

var i: integer;

begin

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

readln

end.