A = int(input())
c = 1
c*=100
while a !=0:
if (a\%10)==(c//100):
c=c+1
a=a//10
c=c\%100
print(c)
Ответ:
знакоместо-определяется рядом и колонкой знака на алфавитноцифровом дисплее
Объяснение:
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.
Любого графического редактора? Ластик , заливка , пипетка( она же выбрать уже существующий на экране цвет) , лупа , карандаш , кисточка , распылитель ,палитра.
Осязание или тактильное чувство- способность человека ощущать прикосновения, воспринимать что-либо рецепторами, расположенными в коже, мышцах...
Значит когда мы гладим кошку мы ощущаем прикосновение, то какая она на ощупь.
Это осязательная информация.