Не уверен верно ли я понял задание
void sqr(int m, int n)
{
int b = 0;
for (int i = m; i <= n; ++i) {
b -= i;
}
cout << pow(b, 2) << endl;
}
................................
Var s,st: string;
<span> i,k: integer;
</span><span>begin
</span><span> st:='abcdefghqijklmnoprstuvwxyz';
</span><span> write('строка: '); readln(s);
</span><span> k:=0;
</span><span> for i:=1 to length(s) do
</span><span> if pos(s[i],st)>0 then k:=k+1;
</span><span> writeln(k);
</span><span>end.
</span>строка: Это lat строка.
<span>3
</span>