Решите пожалуйста,очень нужно! С клавиатуры вводят слово и символ. Составьте программу,которая:а)проверяет,есть ли в этом слове заданный символ;б)определяет позицию заданного слова;в)подсчитывает количество вхождений заданного символа.

1

Ответы и объяснения

Лучший Ответ!
2011-11-27T18:18:09+04:00

program p_1;
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('Нет');
writeln;
end.