Question

Wyświetl za pomocą pętli while, w języku Pascal, liczby od 1 do 100, z tym, że liczby od 10 do 100 mają się wyświetlać co druga.

Bardzo proszę o pomoc, za pomocą pętli for i repeat wszystko grało, ale to trochę mi nie wychodzi.

Answer 1

 

Z pętlą while:

Var i:byte;
Begin
 i:=1;
 while i<=100 do
  begin
   if (i<10) then
    begin
     write(i,' ');
     inc(i);
    end else
    begin
     write(i,' ');
     inc(i,2);
    end;
  end;
 readln;
End.

 

Lub:

Var i:byte;
Begin
 i:=1;
 while i<10 do
  begin
   write(i,' ');
   inc(i);
  end;
 while i<=100 do
  begin
   write(i,' ');
   inc(i,2);
  end;
 readln;
End.