Дана строка, состоящая из 50 символов. Составьте программу, используя процедуру которая определяет сколько раз встречается в строке слог ‘ea’.
Ответы
Ответ дал:
0
var s:string;k:integer;
procedure SubInc(var s:string;var k:integer);
begin;
while pos('ea',s)<>0 do
begin;
delete(s,pos('ea',s),2);
inc(k);
end;
end;
begin;
readln(s);
if length(s)<>10 then exit;
SubInc(s,k);
writeln(k);
end.
procedure SubInc(var s:string;var k:integer);
begin;
while pos('ea',s)<>0 do
begin;
delete(s,pos('ea',s),2);
inc(k);
end;
end;
begin;
readln(s);
if length(s)<>10 then exit;
SubInc(s,k);
writeln(k);
end.
Ответ дал:
0
Ох, используя процедуру. Сейчас исправлю.
Ответ дал:
0
Спасибо огромное
Похожие вопросы
2 года назад
7 лет назад
9 лет назад
9 лет назад
10 лет назад