Вопрос от посетителя:
С клавиатуры одной строкой вводят имя и фамилию. Составьте программу, которая определяет, есть ли во введенной строке заданный символ
Илюха отвечает:
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.
Я немножко перевыполнил) От показывает есть симаол или нет, если есть то сколько раз он входит и на какой позиции…