trops

Manau kažkas tokio if skait mod vard = 0 then begin... toliau susiskaičiuoji skait ir vard, bet tai nėra lengva :)

ta? :lol: kylie_minogue___in_my_arms.mp3

cone of learning.

Dėkuj :)

program Noname48; var C,DEL:array [1..10] of integer; i,a,b,d,n,f,sum,sum2:integer; {============skaiciuoju daliklius=============} procedure dalikliai; begin WriteLn('Iveskite du skaicius'); read (a,b); sum:=0; sum2:=0; for i:=1 to a do begin if a mod i=0 then begin d:=d+1; C[d]:=i; end; end; for i:=1 to b do begin if b mod i=0 then begin d:=d+1; C[d]:=i; end; end; writeln ('Suformuotas C masyvas'); for i:=1 to d do write (C:4);

program Noname48; var C,DEL:array [1..10] of integer; i,a,b,d,n,f,sum,sum2:integer; {============skaiciuoju daliklius=============} procedure dalikliai; begin WriteLn('Iveskite du skaicius'); read (a,b); sum:=0; sum2:=0; for i:=1 to a do begin if a mod i=0 then begin d:=d+1; C[d]:=i; end; end; for i:=1 to b do begin if b mod i=0 then begin d:=d+1; C[d]:=i; end; end; writeln ('Suformuotas C masyvas'); for i:=1 to d do write (C:4);

Tau lengva taip sakyti. Eina iš 100$ lošti tam, kad jis negali susivaldyti, tame problema ir yra. Sėkmės! ;)

Pasibelzia pas seni i duris, senis prieina: -Kas ten? -Žanas-Klodas-Van-Damas. -Nep.isk prota, visus keturius iskirsiu. Ėjo ežiukas mišku, ėjo ėjo ėjo ėjo, griuvo ir susilaužė stubura.

Reikia 2006, 2007, 2008 metų anglų kalbos valstybinio egzamino atsakymų.

up, reikia šiandien!

Parašykite funkciją, kurios rezultatas būtų skaičius, gautas iš natūraliojo skaičiaus, sukeitus jo i-tąjį ir k-tąjį skaitmenis vietomis. Skaitmenys numeruojami iš kairės į dešinę. program skaicius; var a,b,c,ps,sk,a1,sum,o,o1:integer; begin WriteLn('Iveskite skaiciu ir skaitmenis kuriuos norite apkeisti'); readln (a,b,c); a1:=a; sum:=0; sk:=0; while a>0 do begin ps:=a mod 10; sum:=sum+1; a:=a div 10; end; o:=sum-b+1; o1:=sum-c+1; while a1>0 do begin ps:=a1 mod 10; sk:=sk+1;

program palindromas; var x1,x2,k,k1,ps,ns:integer; begin WriteLn('iveskite skaiciu intervala'); readln (x1,x2); For k:=x1 to x2 do begin k1:=k; ns:=0; while k1>0 do begin ps:=k1 mod 10; ns:=ns*10+ps; k1:=k1 div 10; end; if ns=k then writeln (k); end; Readln; end. Čia surašys visus palindromus intervale, pasitobulink, kad suradus pirmą, programa sustotu :)

Rytoj negaus, pirmadieni gaus :D

Parašykite programą, kuri išspausdintų visus tobuluosius skaičius, telpančius jūsų kompiuterio atmintyje. Tobulasis skaičius - toks natūralusis skaičius, kurio visų daliklių (išskyrus patį skaičių) suma lygi jam pačiam. Kaip suprasti telpančius jūsų kompiuterio atmintyje? Užveskit ant kelio, nes nelabai suprantu.

nu va, dėkuj :D

Sakė daryti su While ciklu, bėja ta išleista pinigų suma manau turi būti suma kurią įvedi bet prie jos dar reikia pridėti k- procentus kuriuos duoda bankas palūkanų.

Dėkuj, turiu dar viena kurio visaj nesuprantu ;) program antras_variantas; var n,k,r,p,o,w:real; begin WriteLn('Iveskite laimeta suma, procentus valstyvei, kasmetines islaidas'); read (n,k,r); p:=n -(n/100*k); while p>r do begin For p:=1 to 10 do begin o:=p+(p/100*6); p:=o-r; w:=???????????????????????; writeln ('isleista pinigu ',w:2:2); writeln ('liko pinigu ',p:2:2); end; if n<>0 then writeln ('pinigu nebera'); Readln; end. Čia pilna klaidų.. Kaip w rasti? :D

program pirmas_variantas; var n,k,p:real; begin WriteLn('Iveskite obuoliu skaiciu'); read (n); while n>3 do begin p:=n/100*20;; n:=n-p; writeln ('suvalge obuoliu ',p:2:2); writeln ('liko obuoliu ',n:2:2); if n<3 then begin writeln ('suvalge obuoliu ',n:2:2); writeln ('obuoliu nebera'); end; end; Readln; end. Kaip cia ta "trunc" dabar padaryti? SALYGA:

Jūsų abiejų variantai teisingi :). Dėkuj

Vistiek gaunasi, kad visada gražins pinigus, o šiaip paskaičiavau, kad per metus gražina apie 17k. tai po metų turėtu negražinti skolos. Yra dar klaidų ;/

UP.

Tenka vėl prašyti jūsų pagalbos. Petraičių šeima 2005m. iš banko paėmė 20 000Lt paskolą. Bankas ima 5% metinių palūkanų. Per M metų Petraičiai planuoja pinigus su palūkanomis bankui gražinti. Mama Petraitė sudarė pinigų gražinimo grafiką: kiekvieną lyginį mėnesį yra įnešti po 250Lt, kiekvieną nelyginį mėnesį įnešti po 20Lt daugiau nei yra inešta iki tol. Ar per M metų Petraičiai gražins bankui pinigus? Parašykite programą. M - metų skaičius. Bandžiau kažką daryti, bet jaučiu prigrybavau, nes kiek metų be įvesčiau rašo, kad negražins... program bankas; var sk,p:real; men,n,y:lon

Dėkuj :P

Reikia parašyti programą, atspausdinančia tuos triženklius skaičius, kurie dalijasi iš visų savo skaitmnų. program trizenklis; var i,i1,i2,i3:integer; begin Write('trizenkliai skaiciai kurie dalijasi is visu savo skaitmenu: '); For i:=100 to 999 do begin i1:=i mod 10; i2:=i div 10 mod 10; i3:=i div 100; if (i mod i1=0) and (i mod i2=0) and (i mod i3=0) then writeln(i); end; Readln; end. Kur klaida?

Dave Darell - Children (club mix) Netilpo sitos idėti. Jei patiks sakyk dar paieškosiu :D P.S. Kaikurios jau senokos 02_boys_noize_lava_lava__original_mix_.mp3 11_the_subs___kiss_my_trance.mp3 Antoine___This_Time__Klaas_Remix___by_jNs_.mp3 107___benny_benassi___rock_n_rave.mp3 Dada_Life___Fun_Fun_Fun.mp3