Ответ:а) Ты общаешься с друзьями и получаешь новую информацию о их интересах например.
В школе ты получаешь новую новую информацию.
б)Когда один из твоих друзей или знакомых сообщил что какой то твой друг соврал тебе.
Или когда в школе ты получил информацию и тебе через год объясняют эту же тему но добавляется новая информация (Например: про расстояние)
( ПРИМЕРОМ (Б) Я НЕ КОГО НЕ ХОЧУ ОБИДИТЬ.)
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>