Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Paskal zadatak II

[es] :: Pascal / Delphi / Kylix :: Paskal zadatak II

[ Pregleda: 3653 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Djuki
Djurdjevac Ivan
Pancevo

Član broj: 56
Poruke: 171
*.panet.co.yu

Jabber: djuki_mag@elitesecurity.org
ICQ: 66867882


Profil

icon Paskal zadatak II06.12.2001. u 17:24 - pre 271 meseci
Napisati program koji ce od datog niza da formira novi u kome ce se nalaziti savrsheni brojevi datog niza. Broj je savrsen ako je jednak zbiru svojih delioca iskljucucuci njega samog. Sa tastature se unosi niz brojeva sve dok se ne unese nula ili negativan broj.
 
Odgovor na temu

random
Vladimir Vrzić
Beograd

Član broj: 85
Poruke: 3866
194.106.163.*

Sajt: www.last.fm/user/vrza


+4 Profil

icon Re: Paskal zadatak II06.12.2001. u 19:03 - pre 271 meseci
Analogno prethodnom zadatku, vrtiš istu petlju i delilac broja je ono i za koje je modul pri deljenju n / 1 jednak 0. Nađene delioce smeštaš u privremeni array, zatim po izlasku iz petlje sabereš sve članove tog niza i ako je zbir jednak n, upisuješ n u niz rešenja (ili ga odmah štampaš na ekran, whatever).
int rand(void);

Those who do not understand Unix are condemned to reinvent it, poorly.

Upali lampicu — koristi Jabber!
 
Odgovor na temu

Makojdis
Stefanovic Milos
Kragujevac

Član broj: 78
Poruke: 302
*.ptt.yu



Profil

icon Re: Paskal zadatak II06.12.2001. u 19:29 - pre 271 meseci
n,i,suma:integer;

ovo je deo koji proverava da li je broj n savrsen
pa ako hoces da proveris za niz ispred stavis neku petlju
npr. n:=niz[j];

suma:=1;
for i:=2 to n div 2 do
if n mod i=0 then suma:=suma+i;
if suma=n then writeln(n); <<znaci br n je savrsen
 
Odgovor na temu

Toni
Dorćol, Beograd

SuperModerator
Član broj: 15
Poruke: 655
*.verat.net

Jabber: toni@elitesecurity.org
ICQ: 16451419
Sajt: egoideas.com


Profil

icon Re: Paskal zadatak II07.12.2001. u 08:29 - pre 271 meseci
radio sam slican a mrzi me da prepravim.

Code:

program savrsen;
  var
    i,n,m,suma:longint;
  begin
    write('Unesi neki broj: ');readln(m);
    for n:=2 to m do
      begin
        suma:=1;
        for i:=2 to n div 2 do
          if n mod i=0
            then suma:=suma+i;
          if suma=n then writeln('Savrsen broj od 2 do ',m,' je ',n);
      end;
    readln
  end.

Jel potpis treba pisanim ili
štampanim slovima?

___________________________________
______
[url=http://www.dizajnzona.com/foru
ms/]dizajnzona.com[/url]
[url=http://www.netizenfaction.com/
]netizenfaction.com[/url]
egoideas.
com

levodesn
o.com
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Paskal zadatak II

[ Pregleda: 3653 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.