Pascal uždaviniai iš temos Ciklas cikle

Sveiki, užstrigau su uždaviniu: Parašykite programą n-ženkliams skaičiams rasti, kurių pirmą skaitmenį perkėlus į galą būtų gaunamas skaičiaus kartotinis.

Bandžiau jau dvi skirtingas konstrukcijas pasirašyti, bet tokių skaičių nerandu, gal jų ir nėra ? jei gerai suprantu prašo paimti tarkim skaičių 1954, perkelt pirma skaitmenį į galą 9541, jei pastarasis yra kartotinis tada užrašom, problema, kad tokių aš nerandu, arba kažko čia nesuprantu.

Mano kodas, versija 2, triženkliams skaičiams:

program kiekkart;
var s1, s2, s3, s4, s5, ks, i : longint;
begin
 for s1 := 1 to 9 do
   for s2 := 0 to 9 do
     for s3 := 0 to 9 do
     begin
       i := 1;
       while (i * (s1*100+s2*10+s3)) <= (s2*100+s3*10+s1) do
           begin
               if (s2*100+s3*10+s1) = ((s1*100+s2*10+s3) * i)
                   then writeln(s1,s2,s3);

               i := i + 1;

           end;
       end;

 readln;readln;
end.

išspausdina tik skaičius 111, 222, 333 ir t.t. bet jie netinka, arne?

Jeigu duota triženklis skaičius, tai tarkim suki 1 cikla nuo 100 iki 999,

tada dalindamas skaičių pvz 125 išskaidai skaitmenis į 1,20,5 ir žiūri jeigu 251 kartotinis arba 215 išrašai jį kurnors arba darai su 2 ciklais, imi skaičių, o su kitu ciklu suki ir dalini, jeigu dalinasi, vadinasi kartotinis atrodo, irgi išrasai, jeigu nesupratai galiu plačiau paaiskinti kaip suvokiu uždavinį:)

tu bent skaitei ką aš parašiau ?

prie ko 125 ir 215 ?? prašymas, pirma įsisiaityti į mano problemą, o tada atrašinėti, jei sugebėsi į temą.

Žinai, bandai padėti žmogui o jis axuielina :), jeigu esi nemokša ir lievai paaiškini temą ir dar užtai aiskini kas ką sugeba tai pirmyn ko pats nepasidarai?:) niekas su tokiu bendravimu tau nepadės :).

O kam tie 215 ir pnš? Kad suprastum kaip galima išskaidyt skaičius, nieks ant lėkštutės nepadavinės, nu aišku nebent nori, kas 5 minutes susidurti su klausimais...

s1syphu3, smagu, jog nori padėti, bet jei nesugebi įsiskaityti į mano problemą gal neverta rašyt bet ko ?

Supaprastinimui:

Problema Nr. 1: Ar yra tokiu n-ženklių skaičių, kurių pirmajį skaitmenį nukėlus į galą gausi skaičiaus kartotinį ?

Problema Nr. 2: Jei problema Nr.1 TRUE, kas blogai su mano kodu ?

Pala, netaip parašiau

pakeisk ciklą, į

http://my.jetscreenshot.com/16812/20140330-ztim-21kb.jpg

dabar atrodo gerai supratau, reikia rasti a skaičiaus kartotinį perkėlus a skaičiaus pirmą skaitmenį į galą. Taigi, netinka skaičiai kaip 222,999 ir panašiai nes jie tokie patys, nėra ką perkelt į galą manau, Todėl perkėlus skaičių pvž 100 į 001 dalini a iš skaičiaus b tai yra 100/1 ir dalini su liekana MOD, jeigu gautas ats lygus 0 tai taip, skaičius b yra skaičiaus a kartotinis. Pataisyk jeigu netaip supratau.

s1syphu3, vis nesugebi įsiskaityt. prašau daugiau neberašyk, ačiū už pastangas padėt.

Uždavinys: Parašykite programą n-ženkliams skaičiams rasti, kurių pirmą skaitmenį perkėlus į galą būtų gaunamas skaičiaus kartotinis.

kodas keturženkliams skaičiams tikrinti

program kiekkart;
var s1, s2, s3, s4, s5, ks, i : longint;
begin
 for s1 := 1 to 9 do
   for s2 := 0 to 9 do
     for s3 := 0 to 9 do
       for s4 := 0 to 9 do
           if (s2*1000+s3*100+s4*10+s1) mod (s1*1000+s2*100+s3*10+s4) = 0
               then writeln(s1,s2,s3,s4);

 readln;readln;
end.

Problema Nr. 1: Ar yra tokiu n-ženklių skaičių, kurių pirmajį skaitmenį nukėlus į galą gausi skaičiaus kartotinį ?

Problema Nr. 2: Jei problema Nr.1 TRUE, kas blogai su mano kodu, o gal su uiždavinio sąlyga, jos supratimu ?