Составить программу,которая считает количество вхождений буквы а в заданном тексте.В паскель.
Answers & Comments
saypl
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.
Answers & Comments
begin
write('Введите текст: '); readln(s);
k:=0;
for i:=1 to length(s) do
if s[i]='a' then k:=k+1;
writeln('В заданном тексте буква а встречается ',k,' раз');
end.