Ciklas while

Duotas skaicius, su ciklo while pagalba turiu parasyti eiluteje, pvz

Duotas skaicius 4569

Turetu atrodyti taip:

4

5

6

9

Tai gal galima suzinoti, kuria kalba tau reikia parasyti? :) Ar tau tik algoritmo reikia?

Tai gal galima suzinoti, kuria kalba tau reikia parasyti? :) Ar tau tik algoritmo reikia?

Speju pascal, nes panasu i mokykline uzduoti :)

Jei paskalis:

a) 4569

Išspausdinam nuo dešiniausio skaitmens (9 6 5 4):

program While1;
   var x,y:integer;
begin
 WriteLn('Iveskite skaiciu: ');
 Readln(y);
 while y <> 0 do
 begin
   x:= y mod 10;
   writeln(x);
   y:=y div 10;
 end;
 readln;
end.

b) 4569

Išspausdinam iš kairės (4 5 6 9):

program while2;
   var x,y,i,j:integer;
       a:array[0..6] of integer;
begin
 WriteLn('Iveskite skaiciu: ');
 Readln(y);
 i:=0;
 while y <> 0 do
 begin
   x:= y mod 10;
   a[i]:= x;
   y:=y div 10;
   i:=i+1;
 end;
 for j:=i-1 downto 0 do writeln(a[j]);
 readln;
end.