Срочно надо. Ввести символьную строку, определить ее длину, выяснить сколько букв 'e' в нее входит.
Пример:
Введите строку:
длинношеее
Результат:
Длина строки=10
3 букв 'e'
Пример:
Введите строку:
длинношеее
Результат:
Длина строки=10
3 букв 'e'
More Questions From This User See All
Answers & Comments
var s:string; dl, k:integer;
begin
write('Введите строку: ');
dl:=length(s);
k:=0;
for i:=1 to dl do
if s[i]='а' then k:=k+1;
writeln('Длина строки - '',dl, ', в ней ',k,' букв е ')
end.
Verified answer
Если паскаль то вот:Program strs;
Var s:string;
i, e:integer;
begin
read(s);
for i:=1 to s.Length do
if s[i] = 'е' then
Inc(e);
writeln(s.Length);
writeln(e);
end.