Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Помогите с программированием♥
Программа создаётся в Паскале.
С клавиатуры вводится предложение и буква. Определить, сколько таких букв в предложении.

Ответ оставил Гость

Var s:string; c:char; i,k:integer;
begin
writeln(Введите предложение); 
readln(s);
write(Введите букву: );
readln(c);
k:=0;
for i:=1 to length(s) do if s[i]=c then k:=k+1;
writeln(k=,k);
end.

Пример:
Введите предложение
С клавиатуры вводится предложение и буква.
Введите букву: в
k=4