Question

Viết chương trình in ra màn hình "5 4 3 2 1" bằng while...do

Answer 1

Uses crt;

var i,n: integer;

begin clrscr;

i:=12345;

while(i<>0) do begin

n:=i mod 10;      write(n,' ');

i:=i div 10;

end;

readln;

end. 

Answer 2

Program HOC24;

var i: byte;

begin

i:=5;

while i>0 do

begin

write(i,' ');

i:=i-1;

end;

readln

end.

Answer 3

program HOC24;
var
   i: integer;
begin
   i := 5;
   while i >= 1 do
   begin
      write(i, ' ');
      i := i - 1;
   end;
end.