Понятным и несущим новую, неизвестную нам ранее информацию
N=3 (три цвета прожектора)
i=4 (прожекторы)
A= N^i
A=3^4=81
Var s,t:string; k:integer;
begin
writeln('Введите строку:');
readln(s);
t:=UpperCase(s);
k:=0;
while pos('ЕЛЬ',t)>0 do
begin
delete(t,pos('ЕЛЬ',t),3);
k:=k+1;
end;
writeln('k = ',k);
end.
Пример:
Введите строку:
сосна ель ёлка ЕЛЬ берёза
k = 2