<em>// PascalABC.NET 3.2, сборка 1353 от 27.11.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</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 s:='trapperkaperkatrter';
var t:='appekaperspamer';
Writeln(MaxSubstr(s,t))
end.
1) x>=0 и x<=2 и y>= 0 и y<=1
<span>2) L >=1 и L<=2 где L = Корень(x*x + y*y) </span>
Если поверить, что Сергей был первым, значит:
1) Сергей первый - верно, Роман второй - ложь
2) Сергей второй - ложь, Виктор третий - правда
3) Леонид второй - верно, Виктор четвертый - ложь
Отсюда следует:
1.Сергей
2.Леонид
3. Виктор
4. Роман
Если поверить, что Роман - второй, то получается, что Леонид и Роман заняли второе место, а это не верно
На мой взгляд это:
<span>1.Исследование информационных процессов любой природы.
2.Разработка информационной техники и создание новейшей технологии переработки информации на базе полученных результатов исследования информационных процессов.
</span>3.Решение научных и инженерных проблем создания, внедрения и обеспечения эффективного использования компьютерной техники и технологии во всех сферах общественной жизни.<span>
</span>