Skaiciaus isskaidymas atskirais skaitmenimis paskalyje - padekit.

//funkcija skaiciuoja keli skaitmenys sudaro skaiciu

function skaitmenys(n,sk:longint):longint;

begin

sk:=0;

While n>0 do

begin

n:=n div 10;

sk:=sk+1;

end;

skaitmenys:=sk;

reikia funkcijos, kuri sektu paskui sita, ir spausdintu skaitmenis, sudarancius viena skaiciu.

Pvz ivedus 381 atskirai rasytu 3, 8, 1.

Zinoma galiu padaryti n div 10, n div 100, n mod 10, taciau nezinau, kokio ilgio bus skaicius, tad toks variantas netinka.

padekit jei galit, aciu :)

Račiau vienai programai ką tik panašų.

while sk>0 do

begin

n:= n+ 1;

mas[n]:= sk mod 10;

sk:= sk div 10;

end;

Skaitmenis surašo į masyvą.

aciu, bet man reikia be masyvo.

nelabai patyres programavime esu tad nemoku paaiskint, bet kaip nors su ciklu kad nuo 1 iki sk, ar panasiai.

Jeigu teisingai supratau ko tau reikia, tai iterpk

a:=n mod 10;

write (a);

ir tada div 10