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 937 korisnika na forumu :: 49 registrovanih, 6 sakrivenih i 882 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: A.R.Chafee.Jr., aramis s, Atomski čoban, babaroga, Bahuss, Bane san, Bloody, bojank, branko7, Chainsaw, comi_pfc, dane007, darkangel, dekao, DM1994, DonRumataEstorski, dragon986, dragonserbia, gogiboj, HrcAk47, hyla, ivicasimo, jaeger, komkom, Konda, kuntalo, kybonacci, madza, mercedesamg, Miskohd, Oluj2.1, repac, rovac, ruger357, ruma, Sale.S, Sićko, Smd, Sonyboy, Srki94, stug, suton, t.mile, Toni, Vlada1389, vlvl, Warhawk, wolf431, zajcev1