Question

Cer ajutor cu rezolvarea problemei in limbajul PASCAL!!!
În fișierul AERO.TXT s-au înregistrat codurile formate din 4 litere ale aeroporturilor–destinație
pentru zborurile efectuate din aeroportul internațional Chișinău. Prima literă (citită de la stânga spre
dreapta) a codului reprezintă țara sau continentul.
Sarcină: Scrieți un program, care calculează numărul de zboruri efectuate în țările Europei de sud.
Codurile țărilor din regiunea indicată încep cu litera L. Rezultatele vor fi afișate la ecran.
Intrare: Fișierul text AERO.TXT conține în prima linie un număr întreg N (0 < N ≤30) – numărul
zborurilor efectuate. Fiecare din următoarele N linii conține câte un șir de 4 litere – codul
unui aeroport-destinație.
Ieșire: La ecran se va afișa un număr întreg: numărul de zboruri, unde prima literă a codului este
litera L

Answer 1

program Aeroport;

var f: text;

   i, n, contor: integer;

   cod: string[5];

begin

  assign(f, 'AERO.TXT'); reset(f);

  readln(f, n);

  for i:=1 to n do

    begin

       readln(f, cod);

       if cod[1]='L' then inc(contor);

    end;

  writeln(contor);

  close(f);

end.