Potrebna pomoc oko zadatka

Potrebna pomoc oko zadatka

offline
  • Pridružio: 27 Dec 2007
  • Poruke: 134

Napisano: 12 Apr 2009 17:29

Napisati program koji iz datoteke "broj.in" ucitava prirodan broj n(1<=n<=1000 000 000) i odredjuje izmedju koje dve cifre ga treba podeliti na dva broja tako da zbir dva dobijena broja bude neparan i najveci. U datoteku "broj.out" upisati maximalni zbir koji se dobija. Ako se broj ne moze podeliti na trazeni nacin upisati rezultat -1.

Moje resenje:
Program zad19; var     a, n, x, y, c, max: integer;     ulaz, izlaz: text; Begin      assign (ulaz, 'broj.in');      assign (izlaz, 'broj.out');      reset (ulaz);      rewrite (izlaz);      read (ulaz, n);      a:=1;      while (n div 10) > 0 do                               //ovde odredjujem a      begin        a:=a*10;        n:=n div 10      end;      max:=0;      repeat                                      //ovde dati broj n delim na dva broja       begin                                      //i odredjujem da li je njihov zbir            x:= n mod a;                     //neparan            y:= n div a;            c:= x+y;            if c mod 2 = 1 then                                if max < c then              max:= c;              a:=a div 10       end;      until a=0;      if max > 0 then       writeln(izlaz, 'Maximalan zbir je: ', max)                 else       writeln(izlaz, -1);       close(ulaz);       close(izlaz) End.

Da li neko moze da mi kaze gde je greska.... Sad((((

Dopuna: 12 Apr 2009 22:03

Da li mogu da postoje dve petlje kao kod mene ovde?



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
Ko je trenutno na forumu
 

Ukupno su 972 korisnika na forumu :: 101 registrovanih, 12 sakrivenih i 859 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 20624 - dana 04 Apr 2026 04:18

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 357magnum, A.R.Chafee.Jr., aleksmajstor, alternator, ArchaBasha, Avalon015, awathorn, bbrasnjo3, Belisarius, Ben Roj, bojcistv, BOXRR, bpop, Brankojle, bufanje, cakija, Camposam, Chainsaw, Cicumile, Cirkon, coaaco, cvrle312, darkkran, dejan1972, delrey, Dimitrise93, dj.ape, djboj, djile1, DLazić, doktor1964, DonRumataEstorski, draganca, dulleo, Dzoni2412, Flanker-G, Gitzherai, Glavonja049, Holy Saber, iceburn, ikan, Ikica977, IvanKotan, Ivoo, jalos, Jeremija98, Jester, Jose, Kalem, kaput21, Klonfer83, kybonacci, ladro, Marko88, markolopin, Mastrum Ridkali, max power, MB120mm, miki kv, milenko crazy north, Miler88, Milos ZA, milos97, Milun24, nightwish 01, nikoladim, nuke92, opt1, Orc, paja69, Pantelejmon, proka89, raster12, Redred, ruma, sap, sasics, Solunac na steroidima, Stanoje, stegonosa, t.e.m.p.l.a.r., tanakadzo, Tanjagre, theNedjeljko, Tragač, UncleSAM, vathra, vazduh, Veless, vidra1, Vlada78, vladaa012, vladanan, Vrač, wolverined4, YugoSlav, zdrebac, Zeka_Peka, zemljanin, zziko, |_MeD_|