dariux1x

Saitas mokantis už youtube peržiūras Taip pat galite talpinti savo video 12000 points = 1$ Minimali išmoka 10$ 10 s = 1 points ( tik peržiūra o dar galite ir like'inti subscribe'inti ir t.t. kas duoda papildomų points. ) Jei nesunku padėkit man spausdami ant nuorodos su ref :) Nuoroda(be ref) Linkas BE REF Nuoroda(su ref) Linkas SU REF

Stai uzduotys kuriu man reikia, buciau dekingas jei kas padetu. 1. Duoti 3-ų skritulių spinduliai: r1, r2 ir r3, reikia apskaičiuoti kiekvieno skritulio plotą. Parašyti programą. Naudoti procedūrą, kuri skaičiuoja skritulio plotą. 2. Parašyti procedūrą skaičių a pakelti laipsniu k. (naudokite daugybos operaciją cikle). 3. Parašyti procedūrą, kuri duotą pinigų sumą perskaičiuoja į nurodytą valiutą. Pradiniai duomenys - turima pinigų suma, valiutos kursas. Naudoti procedūrą programoje. Programose rezultatą spausdinti kompiuterio ekrane, bei į rezultatų failą: pavarde.txt 4 (papildoma uždu

Man jis turejo atrodyti taip: program darbelis; var a:string; rf:text; begin Assign(Rf,'rez.txt'); Rewrite(Rf); WriteLn('Iveskite skaiciu: '); ReadLn(a); WriteLn('Rezultatas: ',a,' Skaitmenu skaicius: ',length(a)); ReadLn; WriteLn(Rf,'Rezultatas=',a); WriteLn(rf,'skaitmenu skaicius:',length (a)); Close(rf); end. Nes uzduotyja parasyta paciam gale "bei i rez.txt faila"

Reikejo truputi pataisyti, bet veikia aciu

Neveikia :/

Gal kas galetu isspresti sia programa:

Aciu

Man reikia kad kas nors issprestu sita programa: 1.Parašyti procedūrą, skaičiaus, įvesto klaviatūra kvadratui ir kubui rasti, šią procedūrą naudoti programoje.