Question

1.Napisz program w którym użytkownik wprowadzi dowolny napis. program ma sprawdzić ile było spacji, przecinków oraz kropek i wypisać ich liczbę na ekranie.(pascal)

Answer 1

Program kat;
uses CRT;
var
tekst:string;
i,ile_kr,ile_prz,ile_sp:integer;
begin
Clrscr;
Writeln('Wpisz dowolny tekst:');
readln(tekst);
for i := 1 to length(tekst) do begin
if tekst[i] = '.' then ile_kr := ile_kr+1;
if tekst[i] = ',' then ile_prz := ile_prz+1;
if tekst[i] = ' ' then ile_sp := ile_sp+1;
end;
Writeln;
Writeln('Kropek we wprowadzonym tekscie: ',ile_kr);
Writeln('Spacji we wprowadzonym tekscie: ',ile_sp);
Writeln('Przecinkow we wprowadzonym tekscie: ',ile_prz);
readln;
end.