X - длина шнура 1 х-1длина шнура 2 х+1 длина шнура 3x+х+1+х-1=303х=30х=10 длина шнура 1 10-1=9 длина шнура 2 10+1=11 длина шнура 3
Program Zadacha;
Var s: String;
c: Char;
i, pos, count:
Integer;
Begin
WriteLn('Введите слово:');
ReadLn(s);
WriteLn('Введите символ:');
ReadLn(c);
pos := 0;
count := 0;
For i := 1 To Length(s) Do
If s[i] = c Then
Begin
count := count + 1;
If pos = 0 Then
pos := i;
End;
WriteLn('Позиция символа в строке: ', pos);
WriteLn('Количество вхождений символа в строку: ', count);
ReadLn;
<span>End.</span>
Я думаю что 1-5....................... Но это не факт(