Var c: Char;
s: String;
i,k,p: Integer;
Begin
ReadLn(c); {Чтение заданного символа}
ReadLn(s); {Чтение заданного слова}
p:= Pos(c,s); {Определяем позицию символа}
If (p=0) Then {Функция вернёт 0, если символ не будет найден}
WriteLn('Такого символа в слове нет.')
Else {Если символ есть, то ...}
Begin
WriteLn('Указанный символ расположен на позиции: ',p);
k:= 0; {k хранит количество вхождений}
p:= Length(s); {p хранит длину строки(слова)}
For i:=1 To p Do {Пробегаем по всем символам слова}
If (s[i]=c) Then inc(k); {Если символ совпадает, увеличиваем на 1 переменную k}
WriteLn('Количество вхождений данного символа: ',k);
End;
End.
Парень сидит и разговаривает по телефону по рисунку бы я сказала что он очень встревожен или удивлён от разговора видимо его что-то взволновало или встревожило или он услышал какую-то тему которая его удивила
237 = 11101101
Сначала делим на 2:
237 / 2 = 118(1)(так-как есть остаток)
118 / = 59(0)(так-как нет остатка)
59 / 2 = 29(1)
29 / 2 = 14(1)
14 / 2 = 7(0)
7 / 2 = 3(1)
3 / 2 = 1(1)
1 / 2 = 0(1)
А потом записываем с конца.
С остальными так-же.(но лучше воспользоваться стандарнным windows'ким калькулятором(вид->программист->и когда введёшь число выбрать Bin :))