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
contor:=contor+1;
Răspunsuri la întrebare
Răspuns de
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.
Alte întrebări interesante
Limba română,
8 ani în urmă
Ed. tehnologică,
8 ani în urmă
Limba română,
8 ani în urmă
Matematică,
9 ani în urmă
Limba română,
9 ani în urmă
Matematică,
9 ani în urmă
Matematică,
9 ani în urmă
eu am scris in fisierul AERO.TXT urmayoarele date:
7
OPER
LUME
LPIO
ANUL
LITA
TURE
LLLL
si la ecran am primit rezultatul 4