👤
a fost răspuns

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.

Răspuns :

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.

Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile oferite v-au fost de ajutor. Nu ezitați să ne contactați pentru orice întrebare sau dacă aveți nevoie de asistență suplimentară. Vă așteptăm cu drag data viitoare și nu uitați să ne adăugați la favorite!


ID Learners: Alte intrebari