ЧТО ДЕЛАЕТ это программа: Var s:string; i,n:integer;
Begin
Write(‘введите текст ‘);
readln(s);
n:=0; for i:=1 to length(s) do
if s[i]='.'
then n:=n+1;
Writeln('n=', n);
End.
Begin
Write(‘введите текст ‘);
readln(s);
n:=0; for i:=1 to length(s) do
if s[i]='.'
then n:=n+1;
Writeln('n=', n);
End.
More Questions From This User See All