Ответ прилагаю фото с кодом
использовать Робот
алг
нач
нц пока сверху свободно; вверх кц
нц пока сверху стена; влево кц
вправо
нц пока сверху стена
закрасить
нц пока снизу свободно
вниз
закрасить
кц
нц пока сверху свободно
вверх
кц
вправо
кц
кон
Логическая схема находится во вложении.
Логическая функция по схеме:
Функция истинна при истинном х₁ и ложном х₂, т.е. в наборе варианта б). Для остальных вариантов она ложна.
Получаем для б) 1, для а), в), г) 0
Предназначен для исполнения<span>может иметь бесконечное число шагов.
</span>
Var x,y,z:string; k,p,l:integer;
begin
writeln('Введите строку:');
readln(x);
writeln('Введите слово:');
readln(y);
z:=x; k:=0;
l:=length(y);
p:=pos(y,x);
while p>0 do
begin
k:=k+1;
delete(z,p,l);
p:=pos(y,z);
end;
writeln('k = ',k);
end.
Пример:
Введите строку:
мама мыла раму, мама мыла окно.
Введите слово:
мама
k = 2