Umístnení souboru www.TrSek.com/zadania/count_space.pas{ COUNT_SPACE.PAS Copyright (c) Pheo }
{ Program spoèíta medzery v texte uloženom v textovom súbore. }
{ }
{ Datum:05.04.2005 http://www.trsek.com }
program count_space;
var t:text;
c:char;
pocet:integer;
begin
assign(t,'k_pr4.txt'); reset(t);
pocet:=0;
while not eof(t) do
begin
read(t,c);
if c=' ' then pocet:=pocet+1
end;
writeln('Pocet medzier v subore ',pocet);
readln;
end.