ЧТО ДЕЛАЕТ это программа: 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.

jubatkanovajd    2   11.12.2020 15:04    0