Var
a: integer;
begin
readln(a);
if a mod 10 = a div 100 then
writeln('TRUE')
else
writeln('FALSE');
<span>end.</span>
Ответ:
20102005₁₀ = 5*8⁰ + 6*8¹ + 5*8² + 5*8³ + 3*8⁴ + 5*8⁵ + 4*8⁶ + 1*8⁷ + 1*8⁸ = 114535565₈
20102005₁₀ = 1*2⁰ + 0*2¹ + 1*2² + 0*2³ + 1*2⁴ + 1*2⁵ + 1*2⁶ + 0*2⁷ + 1*2⁸ + 1*2⁹ + 0*2¹⁰ + 1*2¹¹ + 1*2¹² + 1*2¹³ + 0*2¹⁴ + 1*2²⁴+ 0*2²³+ 0*2²²+ 1*2²¹+ 1*2²⁰+ 0*2¹⁹+ 0*2¹⁸+ 1*2¹⁷+ 0*2¹⁶+ 1*2¹⁵ = 1001100101011101101110101₂
20102005₁₀ = 5*16⁰ + 7*16¹ + 11*16² + 11*16³ + 2*16⁴ + 3*16⁵ + 1*16⁶ = 132BB75₁₆
20₁₀ = 4*8⁰ + 2*8¹ = 24₈
20₁₀ = 0*2⁰ + 0*2¹ + 1*2² + 0*2³ + 1*2⁴ = 10100₂
20₁₀ = 4*16⁰ + 1*16¹ = 14₁₆
10₁₀ = 2*8⁰ + 1*8¹ = 12₈
10₁₀ = 0*2⁰ + 1*2¹ + 0*2² + 1*2³ = 1010₂
10₁₀ = 10*16⁰ = A₁₆
2005₁₀ = 5*8⁰ + 2*8¹ + 7*8² + 3*8³ = 3725₈
2005₁₀ = 1*2⁰ + 0*2¹ + 1*2² + 0*2³ + 1*2⁴ + 0*2⁵ + 1*2⁶ + 1*2⁷ + 1*2⁸ + 1*2⁹ + 1*2¹⁰ = 11111010101₂
2005₁₀ = 5*16⁰ + 13*16¹ + 7*16² = 7D5₁₆
Паскаль:
1) y:=cos(2*x)+sin(x/4)
2) c:=a*b*sqrt(1+5*a)
1)
Var a:array[1..20] of longint;i,k:longint;
Begin
for i:=1 to 20 do
read(a[i]);
for i:=2 to 20 do
if (abs(a[i-1]) mod 3=0) and (abs(a[i]) mod 3=0) then k+=1;
writeln(k);
End.
2)
Var a:array[1..20] of longint;i,max:longint;
Begin
for i:=1 to 20 do
read(a[i]);
max:=-2000000000;
for i:=1 to 20 do
if (abs(a[i]) mod 11=0) and (a[i]>max) then max:=a[i];
writeln(max);
End.