Дана строка, состоящая из 50 символов. Составьте программу, используя процедуру которая определяет сколько раз встречается в строке слог 'ea'.

Question

Информатика

Аполя

17 октября, 20:47

Дана строка, состоящая из 50 символов. Составьте программу, используя процедуру которая определяет сколько раз встречается в строке слог 'ea'.

+2

Ответы (1)

Знаете ответ на вопрос?

Петоша · Answer 1

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.