Цитата:
Сообщение от DjDeniels-61
Помогите,плиз оч нужно на экзамен....
1)Имеется текстовый файл. Найти: количество строк, начинающихся с буквы «А» и «а».
Заранее огромное спасибо!!!
|
VAR
f:TEXT;
S:STRING;
N:WORD;
BEGIN
Assign(f,'C:\d');
ReSet(f);
N:=0;
REPEAT
ReadLn(f,S);
IF (S[1]='A') OR (S1='a') THEN INC(N);
UNTIL EoF(f);
Close(f);
WriteLn('N = ',N);
ReadLn;
END.