rytiss20

Sveiki, ieškau žmogaus, galinčio padėti išspręsti mokyklinio lygio FPS uždavinį. Aišku ne už "ačiū". Atsiskaityčiau banko pavedimu ar tlf. sąsk. papildymu. Daugiau informacijos skype - rytiss20.

Esu labai dėkingas visiem už pastangas ir laiką :)

Na "piramidės" vidus turėtų taip pat būt užpildytas A raidėmis, o ne būti tuščias...

Man kyla dar vienas noob'iškas klausimas... Kai turi: program Bevardë21; var i,x,y,j,k:integer; begin for i:= 1 to 20+1 do write(' '); writeln('A'); for i:= 20 downto 1 do begin for j:=1 to i do write(' '); write('A'); writeln(); end; readln(); end. kaip padaryti, kad rašytų ne po vieną "A" raidę kiekvienoj eilutėj, o vis viena daugiau?..

Na dėkui už pavyzdį, bet šitas kodas truputi per sudėtingas man :D Būčiau labai dėkingas, jei parašytumėt būtent su A...

Sveiki, Free pascal turiu parašyt programą, kuri "nupieštų piramidę" iš A raidžių: _____A ____AA ___AAA __AAAA _____... (_ - tarpai) Užstrigau ties vieta, kai reikia "apsukti piramidę". Mano programa: program Bevardë21; var i,x,y,a,b,c,j:integer; begin for i:= 1 to 20 do begin for j:= 1 to i do write('A'); writeln; end; readln(); end. Būčiau labai dėkingas, jei kas pasakytų, kaip tai reikia padaryti :)

L33T, supratau, ką nori pasakyti. Tačiau ką programoje reikia pakeisti, kad ji rodytų ne "visų visų" skaitmenų sumą, bet kiekvieno skaičiaus skaitmenų sumą (153: 1+5+3=9; 154: 1+5+4=10...)?

Labai dėkoju už jūsų pagalbą. Deja, antroji programa vis dar neveikia...

Aantram uždaviniui parašiau štai tokią programą program sksum; var rezult, pir, ant, tre, i:integer; begin for i:=153 to 893 do begin pir := i div 100; ant := i div 10 - 10*pir; tre := i mod 10; rezult := pir+ant+tre; writeLn('skaitmenų suma: ',rezult); end; Readln; end. tačiau ji rodo klaidingus atsakymus. Gal galite padėti surasti klaidą?

Sveiki, nors programavimo mokausi visai nesenai, gavau štai tokius uždavinius: 1. Atspausdinti visus keturženklius skaičius, kurių paskutinis skaitmuo yra lygus kitų kurių nors skaitmenų sumai. Pvz: 1113; 2568. 2. Rasti visų skaičių nuo 153 iki 893 visų skaitmenų sumą. Net neįsivaizduoju nuo ko pradėt... Funkcijų, procedurų ir masyvų dar nesimokiau, žinau tik programos "basics". Iš anksto dėkoju už bet kokią pagalbą.