Kod: Zaznacz cały
program ilosc_malych_liter;
uses crt;
var p:text;
function ilosc(var plik:text):integer;
var
l:integer; znak:char;
begin
while not eof(plik) do begin
l:=0;
while not eoln(plik) do begin
read(plik, znak);
if ((ord(znak)>='97') and ord(znak)<='122')) then l:=l+1;
end;
end;
end;
begin
assign(p,'plik.txt');
reset(p);
writeln('Ilosc malych liter w pliku', ilosc(p));
close(p);
readln
end.