Pascal 10kl.

Sveiki,

gal galite pagelbėti su "free pascal" :)

Iš anksto dėkui kas bent pažvelks į užduotį :)

P.S. čia ne man reikia :)

na tikrai paprastas uzdavinys, manau ir vadovelyje yra tokiu pat ar analogisku uzdaviniu sprendimas. tereikia pakeisti kelis veiksmus.

Aš su Str() padariau bet čia reikia su ciklu :)

Niekas negali padeti? :)

tiksliai nebepamenu sintakses, bet turetum suprasti:

while m > 999 do {Jei skaicius turi daugiau nei 3 skaitmenius, padarysma ji trizenkliu}

m := m div 10;

if m < 100 then ats := "atsakymo nėra"; {Jei skaicius mazesnis uz 100, tada jis trecio skaitmens netures ir isvesime "atsakymo nera"}

else ats := m mod 10; {Jei viskas tvarkoje, surandam trecia skaimeni}

writeln (ats); {Isvedam teisinga atsakyma}

tiksliai nebepamenu sintakses, bet turetum suprasti:

 

 

while m > 999 do {Jei skaicius turi daugiau nei 3 skaitmenius, padarysma ji trizenkliu}

m := m div 10;

 

if m < 100 then ats := "atsakymo nėra"; {Jei skaicius mazesnis uz 100, tada jis trecio skaitmens netures ir isvesime "atsakymo nera"}

else ats := m mod 10; {Jei viskas tvarkoje, surandam trecia skaimeni}

 

writeln (ats); {Isvedam teisinga atsakyma}

Dėkui, tik viena beda su free pascal, ivedus skaiciu is sesiu simboliu programa luzta ;)

Nes tikriausiai skaicius apibrezi kaip INTEGER ;) tada max skaicius apie 32000

Nes tikriausiai skaicius apibrezi kaip INTEGER ;) tada max skaicius apie 32000

Joa :)

Joa ;)

Arba int64. Dar ilgesnis. :D

Tai tada naudok longint, galesi daugiau skaitmenu ivesti. :)

Arba int64. Dar ilgesnis. :)

Ok, dėkui :D

--------------------------------------------------------------

Read (a); if a>0 then if a mod2=0 then z:= a-2 else z:= a-3 else z:= a+10; writeln (z) Iswardykite visas galimas pradinio duomens a reiksmes, kad butu spausdinama 10...............

^

|

Gal galit su situo reikalu pagelbeti? :P

Ok, dėkui :)

 

Gal galit su situo reikalu pagelbeti? :)