someon

Turiu kodu. i AŽ

7HTZHLN6 M6Q7QWGA CSCPE75C ERDAJ3LV R3WSUUAN

Panašiai ir buvau padaręs, dar su keliais patobulinimais, bet nieko gero iš to nesigavo :lol:

Gal kas galėtų parašyti idėją, kaip išspręsti uždavinį "Gyvatėlė". Bandžiau su rekursija spręsti, bet tai užtrunka per ilgai.

Na tarkim padarė jie kelis rimtus įsilaužimus, dar suprantu, kad prie valdžią eina. Bet koks tikslas įsilaužt į SONY ir vartotojų duomenis vogt? Kaip kas nors prie LulzSec gali prisidėti, jeigu jie ir nekaltus puldinėja? (Tarkim atakas prieš *.gov puslapius toleruoju, bet ir tai atrodo papraščiausias vandalizmas).

Gal yra kokia svetainė, kurioje surašyti visi Lietuvoje vykstantys, su IT susiję renginiai? Sunku ką nors surasti, negi nieko panašaus čia nevyksta?

3 : begin WriteLn('Iveskite pagrindo ilgi, ploti ir aukstine'); ReadLn(a, b, c); If a <= 0 then writeln('Ivedete 0 arba neigiama skaiciu') else if b <= 0 then writeln('Ivedete 0 arba neigiama skaiciu') else if c <= 0 then writeln('Ivedete 0 arba neigiama skaiciu') else begin Sson := 2 * (a*c + b*c); Spagr := a * b; Svisas := Sson + (2 * Spagr); v := Spagr * c; WriteLn('Staciakampio gretasienio soninio pavirsiaus plotas: ', Sson:0:0); WriteLn('Staciakampio gretasienio

Pakeisk į: b := b + d; k := k + b;

Prašom. program braskes; var b,d,k,n,i:integer; begin Write('Iveskite kiek pirmaja diena lysveje prinoko braskiu. ');readln(b); write('Iveskite kiek kita diena braskiu prinoksta daugiau, negu pries tai buvusia. ');readln(d); write('Iveskite kiek dienu auginamos braskes. ');readln(n); k := b; for i := 1 to n - 1 do begin b += d; k += b; end; writeln('Per ',n,' dienas prinoko ', k,' braskes'); readln; end.

Na, per egzaminą, olimpiadas galima naudoti ir C++ kalbą. Bet daugiau šiuo klausimu nelabai ką galiu pasakyti :)

Kazicko forumas Inf. olimpiados

Aš daryčiau šitaip: n := 0; while a <> 0 do begin n := n + 1; mas[n] := a mod 10; a := a div 10; end;

O kas turi gautis patikrinus pirmą skaičių su paskutiniu?

program uzduotis; type asmuo = record kazkas, pavad, vard, pav : string[10]; akod: string[11]; bkiek: integer; B: array[1..100] of integer; end; masyvas = array[1..100] of asmuo; var A : masyvas; pavadinimas: string[10]; //atitdziai pasiziurek, kad butu tiek arba daugiau simboliu pries grup. dydi grupDYD: integer; //visos grupes dydis i: integer; {------------------procedura failo nuskaitymui---------------------------------} procedure skaitymas(var A: masyvas; var grupDYD: integer; var pavadinimas: string[10]); //geriau globaliuju kin

Duomenų failą gal gali pateikt, kur būtų keli turistai? Nes pagal parašytą programą kai ko nesuprantu. Pvz, ką nuskaito 'ReadLn(fd, a[1]. d);'?

for i := x to y do WriteLn (x + i); WriteLn (x + y); Ciklas vykdomas 2 kartus, abu kartus išvedama WriteLn (x + i); Užsibaigus ciklui išvedama WriteLn (x + y);

Arba visus į vieną masyvą sudėt ir type irasas = record ..... masyvas....; kiek, suma: integer; end; for i := 1 to irasas. kiek do begin read(failas, irasas. masyvas[i]); irasas. suma := irasas. suma + irasas. masyvas[i]; end; Čia tik pavyzdys, nes dar ir masyvo visiem įrašams turbūt reikia. Tikiuosi, kad bent į temą parašiau.... :)

O kalba bus paskalis?.. EDIT: Atsiprašau, nemačiau, jog paklausė šito... Beje, kiek simbolių skiriama vardui ir pavardei? :)

28. program Noname2; const T = 1000; type masyvas = array[1..T] of integer; var i, kiek: integer; pirm: masyvas; sk1, sk2: integer; procedure pirminiai (var pirm: masyvas; var kiek: integer); var i, j, k: integer; mas: array[1..T] of boolean; begin k := 0; for i := 2 to T do mas[i] := true; for i := 2 to 500 do if mas[i] = true then begin j := 2*i; while j<= T do begin mas[j] := false; j := j+i;

Kazicko forumas Olimpiadiniai uždaviniai

Galima rinktis, tarp pascal ir C++ kalbos laikant.

program Project1; var n : integer; skaic : longint; begin WriteLn('Iveskite n'); ReadLn(n); skaic := 1; while n > 0 do begin skaic := skaic * n; n := n - 1; end; writeln(skaic); Readln; end. program Project1; var n : integer; skaic : longint; begin WriteLn('Iveskite n'); ReadLn(n); skaic := 1; repeat skaic := skaic * n; n := n - 1; until n = 1; writeln(skaic); Readln; end.

Aš pats turiu pasiėmęs Lietuvių A Matematika A Anglu A Fizika A Iš visų šių dalykų mažiausiai vertingas yra lietuvių kalbos, na, bet egzaminus laikyt tai reikia, nors Lietuvoje neturėtų kilti sunkumų įstoti į specialybę, susijusią su informatika. Fizika A lygiu todėl, kad gali praversti ateityje. Nežinia gi, ko reikės, o fizikos žinios tikrai naudingos :)

program Noname2; var a,sand:integer; begin Writeln('Iveskite skaiciu'); Readln(a); sand := 1; while a > 0 do begin if a mod 10 <> 0 then sand := sand * (a mod 10); a := a div 10; end; writeln('Sandauga: '); Writeln(sand); Readln; end. Maždaug šitaip. Bet ar tau reikia tik N skaitmenų sandaugos, ar visų? :) (čia parašyta programa skaičiuoja visų skaitmenų, nelygių 0)

Sveiki, gal kas turite išsprendę šį forumo uždavinį, arba turite idėjų kaip efektyviai jį spręsti? :) http://img291.imageshack.us/img291/1143/2012q.png