Question

Salut!
Am nevoie de ajutor cu rezolvarea unei probleme PASCAL! Mersi anticipat...
Un tichet (card) electronic conține N călătorii preplătite. La urcarea în transportul public persoana
deținătoare a cardului va valida călătoria. De pe card pot fi extrase 1, 2 sau 3 călătorii, pentru
grupuri de până la trei persoane.
În memoria cardului se înregistrează date despre: numărul de călătorii preplătite, numărul de
validări efectuate, numărul de călătorii extrase la fiecare validare. Datele sunt păstrate în fișierul text
TICHET.TXT.
Sarcină: Scrieți un program care afișează pe ecran numărul de călătorii rămase neutilizate.
Intrare: Fișierul text TICHET.TXT conține în prima linie 2 numere întregi separate prin spațiu:
N (0 < N ≤ 50) – numărul de călătorii preplătite și K ( 0 < K ≤ N) – numărul de validări
efectuate. Fiecare din următoarele K linii conține câte un număr întreg – numărul de
călătorii validate la extragerea corespunzătoare – pentru 1, 2 sau 3 călătorii.
Ieșire: La ecran se va afișa numărul de călătorii preplătite rămase pe card.

Answer 1

program HaiCalatorie;

var f:text;

   n,k,i, calatorii, ramase, suma:integer;

begin

 assign(f,'tichet.txt'); reset(f);

 readln(f,n,k);

 suma:=0;

 for i:=1 to k do

   begin

     readln(f, calatorii);

     suma:=suma+calatorii;

   end;

 close(f);

 ramase:=n-suma;

 writeln('calatorii ramase pe card: ', ramase);

end.