Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Написать алгоритм и программу которая определяет сколько раз в данном слове встречается буквосочитание "пол"

Ответ оставил Гость

Function checkstring( s:string ): integer;
var i, k, len: integer;
begin  len := length(s);
k := 0;
for i := 1 to len do
begin
if ( s[i] = п ) then
if s[ i + 1 ] = о then
if s[ i + 2 ] = л then inc(k);
end;
checkstring := k;
end;
var str: string;
rez: integer;
begin
write(Введите слово: );
readln(str);
rez := checkstring(str);
if rez > 0 then writeln(Буквосочетание "пол" встречается в слове в количестве: , rez)
else writeln(Буквосочетание "пол" в слове не встречается);
end.