Var
s : String;
Begin
{Readln(s);}
s:='abcd sf dsf rfg test';
While Pos(' ',s)>0 do Delete(s,Pos(' ',s),1);
Writeln(s);
end.
Вот так вот) там во втором "ввод a, b, c" лучше)
Таблица истинности И:
0 0 0
1 0 0
0 1 0
1 1 1
Таким образом, нужное нам число должно выполнять все представленные условия.
Рассмотрим 4:
4>1-правда
4>2-правда
4<span>≠3-правда
Таким образом, ответ 4.</span>
1 байт → 8 битов.
2 байта → 16 битов.
Удачи! :)
За основу взят алгоритм, изложенный в "Bикипедии" и найденный по запросу "Наибольшая общая подстрока".
Процедура переделана из C# реализации алгоритма, приведенного там же.
<em>// PascalABC.NET 3.2, сборка 1325 от 19.10.2016</em>
function MaxSubstr(s1,s2:string):string;
begin
var a:=new integer[s1.Length+1,s2.Length+1];
var u:=0; var v:=0;
for var i:=0 to s1.Length-1 do
for var j:=0 to s2.Length-1 do
if s1[i+1]=s2[j+1] then begin
a[i+1,j+1]:=a[i,j]+1;
if a[i+1,j+1]>a[u,v] then begin u:=i+1; v:=j+1 end
end;
Result:=s1.Substring(u-a[u,v],a[u,v])
end;
begin
var a:='trapperkaperkatrter';
var b:='appekaperspamer';
Writeln(MaxSubstr(a,b))
end.
Тестовое решение
kaper