Дана строка-предложение на русс. яздана строка-предложение на русс. яз подсчитать кол-во содержащихся в строке знаков паскаль авс нужно !

Uses crt; var i,ans: integer; str: string; begin ans: =0; readln(str); for i: =1 to length(str) do if (str[i]='.') or (str[i]=',') or (str[i]='; ') or (str[i]=': ') or (str[i]='? ') or (str[i]='! ') then ans: =ans+1; writeln(ans); end.

используем рекурентную формулу, чтобы программу

а[n+1]=1/4

a[n]=1/2

t=(1/4)/(1/2)=1/2

a[n+1]=a[n]*1/2

program;

var  n: integer; abs,s,a: real;

begin

a: =1;

eps: =1;

s: =1;

repeat

a: =a*1/2;

abs: =abs(a);

s: =s+a;

until abs< 0.001;

writeln(s);

end;

x=16

ответ: 16 этажей