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

Создать программу которая вычисляет количество повторений буквы п в тексте текст вводит пользователь программы с клавиатуры

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

Var
st:string[33];
i:byte;
x:char;
begin
writeln(Какую букву?);
readln(x);
for i:=1 to length (st) do
if st[i]=x then
writeln( в каком слове? );
readln (st);
end.
вроде так