Предмет: Информатика, автор: Kristi960

с клавиатуры вводят слово и символ.Составте программу которая:подсчитывает количество вхождений заданного символа

Ответы

Автор ответа: Kitsu

var a:string;

b:char;

i,sum:integer;

begin

readln(a,b);

for i:=1 to length(a) do begin

if pos(b,a)<>0 then begin

sum:=sum+1;

delete(a,1,pos(b,a));

end;

writeln(sum);

end.

Предыдущий вопрос

Следующий вопрос

Интересные вопросы

Предмет: Математика, автор: arslanovtimurka6

2x – 3 = 7
$2x - 3 = 7$

7 лет назад

Предмет: Математика, автор: pashaddy50

Решите задачу, составив пропорцию Расстояние от города А до Б велосипедист проехал за 6 часов. За сколько часов это расстояние проедет мотоциклист, скорость которого в 5 раз больше скорости велосипедиста?

7 лет назад

Предмет: Литература, автор: dsafasas

В психологии есть понятия "интроверт","экстраверт","темперамент".Самостоятельно изучите их.Определите,к какому психотипу можно отнести Печорина,Максима Максимыча,Грушницкого,Вулича.

7 лет назад

Предмет: Обществознание, автор: Leno4

поздним вечером трое подрростков встретели студента Н.и достав ножии накинулись на него.получив легкое ранение ,Н схатил камень и ударил одного из наппадавших причинив ему тяжкие телесные поввреждения.другие разбежались.

понесет ли уголовную отвественность студент