Вопрос по информатике:
Pascal abc.
Определить позицию буквы в строке.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 16.01.2018 05:23
- Информатика
- remove_red_eye 16467
- thumb_up 16
Ответы и объяснения 1
Var
S:string;
C:char;
i:integer;
Begin
Write('Введите строку: ');ReadLn(S);
Write('Введите символ: ');ReadLn(C);
Write('Символ "',C,'" встречается на позициях:');
For i:= 1 to Length(S) do
if S[i] = C then Write(' ',i)
End.
Пример работы программы:
Введите строку: 12345789654621685798546323312125
Введите символ: 5
Символ "5" встречается на позициях: 5 10 17 21 32
С проверкой:
Var
S:string;
C:char;
i:integer;
Begin
Write('Введите строку: ');ReadLn(S);
Write('Введите символ: ');ReadLn(C);
i:=1;
While (S[i] C)and(i
if S[i] = C then
Begin
Write('Символ "',C,'" встречается на позициях:');
For i:= i to Length(S) do
if S[i] = C then Write(' ',i)
End
else
WriteLn('Данный символ в строке не встречается')
End.
Пример работы программы:
Введите строку: 12312123
Введите символ: 4
Данный символ в строке не встречается
- 17.01.2018 15:46
- thumb_up 50
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.