Question

Дан текст. Составьте программу нахождения количества точек в этом тексте. решить с помощью Pascal ABC

Answer 1

Pascal ABC..................

Answer 2

Var s:string; k,i: integer;
begin
 writeln('Введите строку ');
 readln(s);
 k:=0;
 for i:=1 to length(s) do
   if s[i]='.' then k:=k+1;
 writeln('Количество точек в строке = ',k);
end.