Potrebna pomoc oko zadatka

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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.... ((((

Dopuna: 12 Apr 2009 22:03

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