Решите пожалуйста,очень нужно! С клавиатуры вводят слово и символ. Составьте программу,которая:а)проверяет,есть ли в этом слове заданный
10-11 класс
|
символ;б)определяет позицию заданного слова;в)подсчитывает количество вхождений заданного символа.
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.
Другие вопросы из категории
символов?
1) 512 бит
2) 400 бит
3) 480 бит
4) 256 бит
5) 60 бит
Читайте также
в)подсчитывает количество вхождений заданного символа.
введенной строке заданный символ б) копирует в новую строку имя и выводит его в) выводит сначала фамилию, а затем имя....
одной минуты.
В начальный момент времени имеется одна бактерия.
Составьте программу, которая рассчитывает количество бактерий на заданное пользователем с клавиатуры целое значение момента времени (15 минут, 7 минут и т.п.)