Школьнику и Студенту

С клавиатуры одной строкой вводят имя и фамилию. Составьте программу, которая определяет,...

0 голосов
285 просмотров

С клавиатуры одной строкой вводят имя и фамилию. Составьте программу, которая определяет, есть ли во введенной строке заданный символ


Информатика (28 баллов) | 285 просмотров
Дан 1 ответ
0 голосов

var
slovo,simval:string;
i,k:integer;
begin
k:=0;
 write('Введите имя и фамилию ');
readln(slovo);
write('Введите символ ');
readln(simval);
for i:=1 to length(slovo) do
begin
if slovo[i]=simval then k:=k+1;
if slovo[i]=simval then writeln(i,' ');
end;
if k>=1 then
 writeln('Да, встречается ',k,' раз, на позиции ',i)else writeln('Нет');
end.

 

 

Я немножко перевыполнил) От показывает есть симаол или нет, если есть то сколько раз он входит и на какой позиции... 

Одаренный (1.0k баллов)
Здравствуйте! На сайте Otvet-Master.ru собраны ответы и решения на все виды школьных задач и университетских заданий. Воспользуйтесь поиском решений на сайте или задайте свой вопрос онлайн и абсолютно бесплатно.
10,984,878 вопросов
13,471,016 ответов
8,518,553 комментариев
4,909,216 пользователей