FPS Uzdavinys

Sveiki, buvau visai užmiršęs, kad rytojui reikia padaryti informatikos namų darbus. Reikia atlikti šį uždavinį, bet aš dar nesimokiau apie duomenų failus, todėl prašau jūsų Forumiečiai, pagelbėti man ir išspręsti šį uždavinį, AČIŪ! :)

http://www.part.lt/img/e1e39945e1c33bf2f9009e3bef18b4e5693.jpg

program sultys;
var n, i, u: integer;
duom, rez: text;
begin
 assign(duom,'duom.txt'); //vietoj duom.txt duomenu failo pavadinima
 reset(duom);
 readln(duom, n);
 assign(rez,'rez.txt'); //vietoj rez.txt rezultatu failo pavadinima
 rewrite(rez);
 for i:=1 to n do
  begin
   readln(duom, u);
   writeln(rez, u[i] div 5,' ',u[i] mod 5 div 2,' ',u[i] mod 2);
  end;
 close(duom);
 close(rez);
end.

Turėtų veikti, neturiu kuo patikrinti.

Labai ačiū, kad padedi!! bet meta klaidą :(

http://www.part.lt/img/31c6a075347da8f7e67820ae8aaf13c5242.jpg

program sultys;
var n, i, u: integer;
       duom, rez: text;
begin
 assign(duom,'duom.txt'); //vietoj duom.txt duomenu failo pavadinima
 reset(duom);
 readln(duom, n);
 assign(rez,'rez.txt'); //vietoj rez.txt rezultatu failo pavadinima
 rewrite(rez);
 for i:=1 to n do
  begin
   readln(duom, u);
   writeln(rez, u div 5,' ',u mod 5 div 2,' ',u mod 2);
  end;
 close(duom);
 close(rez);
end.

Pataisiau. Iš pradžių rašiau su masyvu, o paskui perdariau, tai liko nenutrinta indeksai. :)

Viskas dabar veikia, bet pirmas atsakymas turi būt 9 0 0, o gaunasi 9 0 1

http://www.part.lt/img/a1b2f14441846faf278c3ce281d33e3a932.jpg

program sultys;
var n, i, u: integer;
       duom, rez: text;
begin
 assign(duom,'duom.txt'); //vietoj duom.txt duomenu failo pavadinima
 reset(duom);
 readln(duom, n);
 assign(rez,'rez.txt'); //vietoj rez.txt rezultatu failo pavadinima
 rewrite(rez);
 for i:=1 to n do
  begin
   readln(duom, u);
   writeln(rez, u div 5,' ',u mod 5 div 2,' ',u mod 5 mod 2);
  end;
 close(duom);
 close(rez);
end.

Galutinai pataisiau. Tikiuosi daugiau klaidų nebus. :)

Dabar jau viskas veikia :))))) AČIŪ TAU LABAI :)