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

Question

Информатика

Сюня

28 декабря, 16:49

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

+5

Ответы (1)

Знаете ответ?

Рюрик · Answer 1

Var s:string; k, i:integer;

begin

write ('Введите текст: ') ; readln (s) ;

k:=0;

for i:=1 to length (s) do

if s[i]='a' then k:=k+1;

writeln ('В заданном тексте буква а встречается ', k,' раз') ;

end.