Ответ:
12
Объяснение:
Элементарная арифметика 36/6 = 6 , а 6+6 = 12
program p;
var a,b,c,k: integer;
begin
writeln("Введите a,b,c,k: "); readln(a,b,c,k);
if (a mod k)=0 then writeln("K является делителем A");
if (b mod k)=0 then writeln("K является делителем B");
if (c mod k)=0 then writeln("K является делителем C");
readln; end.
Var x,y: real;
<span>begin
</span><span> write('x y через пробел: '); readln(x,y);
</span><span> if ((x>=0) and (x<=6) and (y<=6-x) and (y>=0)) or
</span><span> ((-6<=x) and (x<=0) and (y<=0) and (y>= -6-x)) then
</span><span> writeln('точка принадлежит области')
</span><span> else writeln('точка не принадлежит области');
</span><span>end.
</span><span>
</span><span>x y через пробел: -3 -4
</span><span>точка не принадлежит области
</span>x y через пробел: -3 -2
<span>точка принадлежит области</span>
x y через пробел: 1 1.5
<span>точка принадлежит области
</span>x y через пробел: 3 4
<span>точка не принадлежит области
</span><span>
</span>
Решение в приложении=====================
За основу взят алгоритм, изложенный в "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