Var s,s0:string;
begin
writeln('Введите строку s:');
readln(s);
writeln('Введите строку s0:');
readln(s0);
if pos(s,s0)>0 then writeln('ДА') else writeln('НЕТ');
end.
Пример:
Введите строку s:
две
Введите строку s0:
Даны две строки
ДА
Пусть команда "+1" - 1, а команда "*2" - 2, то:
111222211 - 9
<span>var
</span>
<span /><span><span>a: array [</span>1..10<span>] of </span>integer;</span>
<span /><span>i : integer;</span>
<span /><span>
begin</span>
<span>
randomize;
</span>
<span /><span><span>for i:=</span>1 to 10 do </span><span>A[i]:=Random(15);</span>
<span /><span><span> for i:=</span>1 to 10 do </span><span><span>if A[i]=</span>5 then</span>
<span /><span>writeln('да то что надо ',A[i])</span><span />
<span>else
</span><span>writeln('ошибка');</span><span>
readln ;
</span>
<span><span>end.</span></span>