<span>а) (-b-sqrt(sgr(b)-4*a*c))/(2*a) = (-b- √(b^2 - 4ac))/(2a)
b) 75*sqrt(sgr(b)+2*a)/(sin(0.6)-a) = 75√(b^2 + 2a)/(sin (0,6) - a)
c) sin(a – exp(3*ln(b)))/(sqr(a)+cos(b))</span> = sin(a - e^(3ln b)) / (a^2 + cos b)
Поясню.
Строка "итог" – это ответ проводника о том, кто туземец.
Значит, если проводник сказал, что туземец правдолюб, проводник всегда правдолюб
Var
i, j, k : integer;
a : array [0..9,0..9] of char;
procedure U(i,j:integer);
var c : char;
begin
c:=a[i,j]; a[i,j]:=' ';
if (c='W')and(a[i+1,j]='B') then U(i+1,j);
if (c='B')and(a[i+1,j]='W') then U(i+1,j);
if (c='W')and(a[i-1,j]='B') then U(i-1,j);
if (c='B')and(a[i-1,j]='W') then U(i-1,j);
if (c='W')and(a[i,j+1]='B') then U(i,j+1);
if (c='B')and(a[i,j+1]='W') then U(i,j+1);
if (c='W')and(a[i,j-1]='B') then U(i,j-1);
if (c='B')and(a[i,j-1]='W') then U(i,j-1);
end;
begin
assign(input,'input.txt');
reset(input);
assign(output,'output.txt');
rewrite(output);
for i:=1 to 8 do begin for j:=1 to 8 do
read(a[i,j]);
readln
end;
for i:=1 to 8 do
begin
a[0,i]:=' '; a[9,i]:=' '; a[i,0]:=' '; a[i,9]:=' '
end;
k:=0;
for i:=1 to 8 do
for j:=1 to 8 do
if a[i,j]<>' ' then
begin
k:=k+1; U(i,j)
end;
write(k);
close(output)
end. <span>
</span>
// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
begin
var n:=ReadInteger();
var a:array of integer;
a:=ReadArrInteger(n);
var p:=ReadInteger();
Sort(a);
var i:=n-1;
while a[i]>p do Dec(i);
Writeln(i+2);
end.
<u><em>Тестовое решение:</em></u>
5
175 169 172 180 174
174
4
1) 49 в 8 сс=61
61 в 10сс =6*8+1=49
2)154,8 в 8 сс 232,63
2*64+3*8+2+6*1/8+4*1/8=154,8