Kod: Zaznacz cały
program licz_znaki;
uses Crt;
var liczba_sp, i, dlugosc: integer;
tekst: string;
procedure zliczaj(var licznik: integer);
begin
licznik:=licznik+1;
end;
BEGIN
ClrScr;
liczba_sp:=0;
writeln('wpisz tekst: ');
readln(tekst);
dlugosc:=length(tekst);
for i:=dlugosc downto 1 do if tekst[i]=' ' then zliczaj(liczba_sp);
writeln('liczba spacji wynosi: ',licznik);
readln;
END.