3*10в степени 2+2*10 в ст.1+8*10 в ст.0
2*10 в ст3+3*10 в ст.2+4*10 в ст.1 +6*10 в ст.0
9*10 в ст. 3+ 8*10в ст.2+7*10 в ст.1+2* 10 в ст.0+1*10 в ст. -1+2*10 в ст.-2+3*10 в ст.-3
1*10 в ст.4+0*10 в ст.3+0*10 вст.2+1 *10 в ст.1+1*10 в ст. 0
потомучто график деления у 6 больше
Var
s:string;
i,n,w:integer;
begin
writeln('Введите текст');
readln(s);
s:=s+' ';
n:=length(s);
for i:=1 to n do
if (s[i]='а') and (s[i+1]=' ') then
inc(w);
writeln('Кол-во = ',w);
<span>end.</span>
567(10) = 5*10^2+6*10^1+7*10^0
94.53(10) = 9*10^1+4*10^0+5*10^(-1)+3*10^(-2)
110.101(2) = 1*2^2+1*2^1+0*2^0+1*2^(-1)+0*2^(-2)+1*2^(-3)
11101(2) = 1*2^4+1*2^3+1*2^2+0*2^1+1*2^0