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);'?