1) if b<>0 then
begin
y:=-c/b ;
writeln('(0;',y,')');
end
else writeln('такой точки нет');
2) if a<>0 then
begin
y:=-c/a ;
writeln('(',x,'0)');
end
else writeln('такой точки нет');
3) 4) аналогично для коэффициентов <span> d, e, f</span>
5) if (bd-ae)<>0 then
begin
x:=(-f*b+e*c)/(b*d-a*e);
y:=(-c-a*x)/b;
writeln('(',x,';',y,')');
end
else writeln('не пересекаются');
<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
ReadlnString('Введите целое число:').Reverse.Println
end.
Не можешь выполнить код, что ли? Тупо переписываешь его на JS и засовываешь в адресную строку:
javascript:var B=[];for(var i=0;i<13;i++)B.push([]);B[1][1]=2;for(var k=2;k<=12;k++)for(var n=1;n<=k;n++){B[k][n]=n*k-B[k-1][n];B[n][k]=B[k][n];}var c=0;for(var k=1;k<13;k++)for(var n=1;n<13;n++)if(B[k][n]%2==0)c++;alert(c);
Результат на экране.
54 символа
1 символ=1байт=8 бит
54*8=432бит