1.С клавиатуры вводят слово и симвал.Составьте программу ,которая а)проверяет,есть ли в этом слове данный симвал. б)определяет позицию данного символа. в)подсчитывает количество входов данного символа. 2.С клавиатуры вводят ряд...
1.С клавиатуры вводят слово и симвал.Составьте программу ,которая а)проверяет,есть ли в этом слове данный симвал. б)определяет позицию данного символа. в)подсчитывает количество входов данного символа. 2.С клавиатуры вводят ряд и слово.Составьте программу ,которая а)определяет позицию данного слова. Сделайте что сможете пожалуйста!!!!!
Гость
Ответ(ы) на вопрос:
Гость Вот первая программа. Вторую сейчас пишу. program p_1;
var
a,b:string;
i,k:integer;
begin
k:=0;
write('Введите слово ');
readln(a);
write('Введите символ ');
readln(b);
for i:=1 to length(a) do
begin
if a[i]=b then k:=k+1;
if a[i]=b then writeln(i,' ');
end;
if k>=1 then
writeln('Да, встречается ',k,' раз, на позиции указанных сверху в столбик ')else writeln('Нет');
end.
Не нашли ответ?
Похожие вопросы