bondas25

Aciu

Sveiki, gal galit kas nors parasyti programa? Sveikuju skaiciu masyva sudaro n elementu, elementu reiksmes gali kartotis. Parasykite programa, kuri is sio masyvo sukurtu kita masyva, sudaryta tik is nepasikartojanciu elementu.

Aciu jums visiems uz pagalba!

O gal galit paaiskinti ka reiskia ta daugyba "**"?

program Bevarde16; var n, pask, pirm : longint; begin Read(n); pask := n mod 10; n := n - pask; pirm := n; while pirm > 10 do pirm := pirm div 10; n := n + pirm; WriteLn(n); end. Bandziau pats kazka, bet sita programa vietoj paskutinio skaitmens iraso pirma, bet pirmas vistiek lieka toks pats, gal galit paredaguoti sita programa, kad paskutinis skaitmuo atsidurtu pirmo skaitmens vietoje?

Turi buti kazkoks budas ir be masyvu, nes prie masyvu as dar nepriejes..

Man tik paskutini skaiciu isspausdina, o kaip padaryti, kad ta n(pradini skaiciu) pvz. 2783 pakeistu i 3782?

Isspausdina tik pask skaiciu, ta prasme abu pirmas ir paskutinis buna paskutinio skaiciaus reiksme Ta prasme as noriu pvz ivedu skaiciu 2783, tai kad man padarytu 3782

program Bevarde14; var n, pirm, pask: longint; begin WriteLn('Iveskite skaiciu'); ReadLn(n); pask := n mod 10; pirm := n; while pirm > 10 do pirm := pirm div 10; WriteLn('Pirmas skaicius = ', pirm,', o paskutinis skaicius = ', pask); end. Susiradau pirma ir paskutinius skaitmenis, taciau nesugalvoju kaip juos reikia sukeisti vietomis?

Man reikia ne visu, o tik teigiamu, bet dekui jau issisprendziau :)

Kad nekurti naujos temos tai parasysiu cia. Kitam uzdavinyje man reikia surasti teigiamu nariu vidurki, bandziau rasyti, bet atsakymas gaunasi ne toks. while n <> 0 do begin if n > 0 then begin teigiami := teigiami + 1; vid := (vid + n) / teigiami; end; Gal galit perzvelgti kas cia blogai?

Aciu labai :)

Reikalingas cia while ciklas? Nes cia prie while ciklo uzdaviniu radau, nors nelabai as cia matau kur ji reiketu panaudot..

Ne visur ir apskritai ko cia rasinejat, jeigu negalit pagelbet, o tik pa*ist prota atsiprasant tai isvis nieko ir nerasykit daug geriaus bus...

Jeigu tau labai skauda, gali nerasyt. Tiesiog maciau zmones cia kreipiasi jeigu jiems neiseina parasyti :)