audrius^

Jei skaičius dalinasi iš skaičiaus, reiškias jis dalinasi iš dviejų skaičių, kurie bus didesni ir mažesni arba lygūs skaičiaus šakniai pvz.: 36 = 1*36 = 2*18 = 3*12 = 4*9 = 6*6, skaičiaus 36 šaknis yra 6, tai tikrinam visus skaičius iki 6 (imtinai) ar dalinasi, jei dalinasi iš karto žinom, kad dalinsis iš 2 skaičių, nebent tai būtų skaičiaus šaknis, tada reikia pridėti tik vieną skaičių. Nežinau ar aiškiai išsireiškiau... :D

#include <cstdlib> #include <Cmath> #include <iostream> using namespace std; int main() { int skaicius = 1; int DalKiekis = 0; cin >> skaicius; for (int i=1; i<=sqrt(skaicius); i+=1) if (skaicius % i == 0) if (sqrt(skaicius) != i) DalKiekis += 2; else DalKiekis += 1; cout << DalKiekis << endl; system("PAUSE"); return 0; }

program Bevarde16; var n, pask, pirm, d : longint; begin Read(n); pask := n mod 10; n := n - pask; pirm := n; d := 0; while pirm > 10 do begin pirm := pirm div 10; d += 1; end; n := n + pirm; n += pask*10**d - pirm*10**d; WriteLn(n); end.

program programa; var n, pirm, pask:longint; Begin readln(n); pirm := n div 10**trunc(ln(n)/ln(10)); pask := n mod 10; n := n + (pirm - pask) + (pask*10**trunc(ln(n)/ln(10)) - pirm*10**trunc(ln(n)/ln(10))); writeln(n); readln; End. Su mąsyvu daug daug daug lengviau būtu, nes iš aritmetinės pusės tai taip sprendimas atrodo

Reikalinga 40lt labas perlaida, 60%(24lt), atsiskaitau SWED. Susisiekti AŽ.

m = {x, y, z}, kadangi vektorius m statmenas Oz ašiai, tai z=0, tada m = {x, y, 0} |m| = 51 -> x2 + y2 = 512 kadangi vektorius m statmenas vektoriui a = {8, -15, 3}, tai vektorių skaliarinė sandauga yra 0, iš čia 8x - 15y = 0 Toliau išspręskime lygčių sistemėlę: x2 + y2 = 512 8x - 15y = 0

1. Vektorius žymėsiu paryškintai: a={1, -2, 3} b={1, 0, -1} Manau pradžiai spręsdamas gali pasirašinėti kaip atrodo vektoriai: 2a+j, 3b-i ir b-a-k pvz: 2a+j = 2*{1, -2, 3} + {0, 1, 0} = {2, -4, 6} + {0, 1, 0} = {2, -3, 6} ir taip susirandęs vektorių koordinates juos sudaugini mišriąja sandauga... Po to ieškodamas projekcijos naudojiesi šia formule: http://upload.wikimedia.org/math/e/e/2/ee2ee3db6d2d8c1f63b99f13c019f1dd.png

Man visiškai nereikia, kad spręstų... Man tiesiog reikia programos kuri galėtų pateikti normaliai mano parašytą sprendimą

Sveiki uždarbiečiai, Norėjau išsiaiškinti, kokia programa naudoti, norint parašyti diferencialinių lygčių sprendimą, kad tai būtų lengva rašyti. Nes dabar kai naudojuosi word'u, tai yra pakankamai daug laiko užimanti terlionė... Reikėtų kažko paprasčiau, tiek daug laiko neužimančio.

Sveiki, ieškau kas galėtų parduoti LABAS 20lt perlaidą, už 60% vertės (12lt SWED). Susisiekite Skype, arba PM ;)

Nagi prikeliam temą, kas nors apsiimkit suorganizuoti forumiečių šachmatų turnyrą, būtų neblogai Kaune ;) Vistiek manau turėtų būti žaidėjų tarp mūsų.

Todėl, kad sąlyga prašo tokios funkcijos :) "Sveikasis skaičius dalijasi iš 3, kai jo visų skaitmenų suma dalijasi iš 3 be liekanos. Parašykite programą, kuri surastų kiek yra natūralių keturženklių skaičių (nuo 1000 iki 9999 imtinai), kurie dalijasi iš 3 be liekanos."

#include <iostream> using namespace std; bool ArDalinas(int sk) { int suma = 0; while (sk > 0) { suma += sk % 10; sk /= 10; } return suma % 3 == 0; } int main() { int rezultatas = 0; for (int i=1000; i<=9999; i++) if (ArDalinas(i)) rezultatas++; return rezultatas; } Manau ši programa atitinka visus kriterijus egzamino. Nekomentavau programos, nes nebuvo prašyta komentuoti užduotyje :)

Jeigu parašytum koks tavo manymu turėtų būti rezultato išdėstymas, galėčiau parašyti programą :) Parašyk su tam tikrais rėžiais a ir b, kokį atsakymą norėtum matyti :)

Nelabai supratau kodėl šitą programą taip parašei, nes kaip supratau sąlygą ten prašo sandaugos visų sveikųjų skaičių (išskyrus nulio, nes tada sandauga būtų 0) iš intervalo [m; n]. Tai programa manau turėtų atrodyti taip: program programa; var i, m, n, san:longint; Begin san := 1; write('Iveskite m: '); readln(m); write('Iveskite n: '); readln(n); for i:=m to n do if i <> 0 then san *= i; writeln(san); readln; End.

Sveiki visi uždarbiečiai. Prieš kelias dienas man draugas pasiūlė gamintis savo alų. Įdėja tikrai patiko nes kaip tik turiu laisvą vietą rūsyje, kuri visiškai nėra naudojama, ir temperatūra nėra ten kokia šalta, nes pro rūsį eina šiluminiai vamzdžiai. Kadangi nieko panašaus nesu daręs tai ir norėčiau kuo daugiau iš jūsų apie tai sužinoti, aišku iš tų kurie yra darę naminį alų. Šiuo metu esu prisiskaitęs maždaug kokią įrangą ir produktus susipirkti. Reikėtų patarimų iš kur ką pirkti, kad viskas nebrangiai atsieitų, bet aišku, kad būtų išlaikytas geras kainos ir kokybės santykis. Nes juk n

Jei reikės paaiškint dar parašyk į PM ;)

Su duomenų failais reikėtų atsargiau... Iškarto patikrinęs duomenų failą ir klaidą radau, jeigu pas save masyvuose skiri 18 simbolių vardui, tai manau tiek simbolių ir reikėtų padėti savo duomenų faile. O "TAB" nepadeda 6 tarpų, jis tik padeda vieną ilgą tarpą. Tikiuosi mintį supratai... ;) U2.txt

1x + 2y = 17 / * (-2) 2x + 3y = 27 -2x - 4y = -34 2x + 3y = 27 -2x+2x -4y+3y = -34+27 -y = -7 y=7; => x+2*7=17 x=3

Man irgi kazkada rekejo panasios programos... Tik man eiles tvarka nebuvo svarbi. Dabar siek pakoregaves programa (eiles tvarkos vis dar nera) galiu ja pateikt :) program programa; const N=9; type t=array[1..N] of byte; var m:byte; procedure println(a:t); var i:byte; begin for i:=m downto 1 do write(a[i]); writeln(); end; procedure keist(var a, b:byte); var c:byte; begin c:=a; a:=b; b:=c; end; function naujas(a:longint):t; var i:byte; f:t; begin for i:=1 to m do f[i]:=0; i:=0; while a>0 do begin i+=1; f[i]:=a mod 10; a:=a div 10; end; naujas := f; end; proced

Juk salyga tiesiog praso, kad zodis nebutu parasytas taip: Sveikas pa- sauli funkcija analizuojanti eilute turi rasti zodzio pradzia ir pabaiga, po to jei (pa-pr+1)%2 == 1 tada istrini zodi ir panaikini tarpus (nors to salygoje nepraso, tai manau uztenka raides keisti i tarpus). Dabar nepamenu ar c++ string tipas nuskaito visa eilute faile ar gali paimti atskira zodi?

Ikelk koda kur pats pasirases ir galesiu parasyti tau reikalingus metodus (jei naudoji klases), arba funkcijas matricom :)

program programa; const M=10; type mas = array[1..M] of byte; function skaidyt(a:qword):mas; var i:byte; b:mas; begin i:=0; while a>0 do begin i+=1; b[i]:=a mod 10; a := a div 10; end; while i<M do begin i+=1; b[i]:=0; end; skaidyt:=b; end; function k(a:mas):byte; var i, t:byte; begin t:= M; while a[t] = 0 do t-=1; k:=t; end; procedure surusiuoti(var a:mas); var i, j, t, laik:byte; begin t:= k(a); for i:=1 to t-1 do for j:=2 to t do if a[j-1]<a[j] then begin laik:=a[j-1]; a[j-1]:=a[j]; a[j]:=laik; end; i:

Tarkim tavo masyvas apibreztas taip const N = 100; type masyvas = array[1..N] of integer Tada manau susikurciau atsakymo spausdinimo procedura, o proceduroje naudociau funkcija, kuri randa kiek kartu skaicius kartojas masyve: function kiekis(a:masyvas; b:integer):integer; var i, k:integer; d:boolean; begin d:= true; k:=0; if b<>1 then for i:=1 to b-1 do //ieskau ar skaicius jau nebuvo isspausdintas if a[b] = a[i] then d := false; if d then begin for i:=b+1 to N do if a[b] = a[i] then k+=1; kiekis:=k; end else kiekis := -1; end; procedure KartojimaisiSpa

nu gerai tarkim as noriu sia funkcija dalinti i tukstanti daliu ir rasti min ir max tarp a=1,02 ir b=1,023, tai ar tikrai tavo parasyta programa duos man atsakyma? :)