//1a
Var
i,x1,x2:integer;
begin
for i:=10 to 99 do
begin
x1:=i mod 10;
x2:=i div 10;
if (sqr(x1)+sqr(x2)) mod 13=0 then writeln(i);
end;
end.
//1б
Var
i,x1,x2:integer;
begin
for i:=10 to 99 do
begin
x1:=i mod 10;
x2:=i div 10;
if x1+x2+sqr(x1+x2)=i then writeln(i);
end;
end.
//2
Var
i,n,a,k1,k2:integer;
begin
readln(n);
for i:=1 to n do
begin
readln(a);
if a<1985 then k1:=k1+1;
if a>1990 then k2:=k2+1;
end;
writeln('Родившиеся до 1985:',k1);
writeln('Родившиеся после 1990:',k2);
end.
Ответ:
77₈ = 7*8⁰ + 7*8¹ = 63₁₀
73₁₆ = 3*16⁰ + 7*16¹ = 115₁₀
64₁₀ = 0*2⁰ + 0*2¹ + 0*2² + 0*2³ + 0*2⁴ + 0*2⁵ + 1*2⁶ = 1000000₂
114₁₀ = 0*2⁰ + 1*2¹ + 0*2² + 0*2³ + 1*2⁴ + 1*2⁵ + 1*2⁶ = 1110010₂
100₁₀ = 0*2⁰ + 0*2¹ + 1*2² + 0*2³ + 0*2⁴ + 1*2⁵ + 1*2⁶ = 1100100₂
Объяснение:
число С может быть от 1000000₂ до 1110010₂
например можно взять 100₁₀ = 1100100₂
Вообщем все просто.
Берешь исходное число 8310.
и делаешь следующее.
8310 / 2 = 4155, остаток 0
4155 / 2 = 2077, остаток 1
2077 / 2 = 1038, остаток 1
1038 / 2 = 519, остаток 0
519 / 2 = 259, остаток 1
259 / 2 = 129, остаток 1
129 / 2 = 64, остаток 1
64 / 2 = 32, остаток 0
32 / 2 = 16, остаток 0
16 / 2 = 8, остаток 0
8 / 2 = 4, остаток 0
4 / 2 = 2, остаток 0
2 / 2 = 1, остаток 0
1 / 2 = 0, остаток 1
И твое число в двоичной система будет снизу вверх из чисел остатка, а то есть 10000001110110
<em>// PascalABC.NET 3.2, сборка 1370 от 24.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(10,-100,100); a.Println;
var n:=a.Where(x->x.IsEven).Count;
Writeln('Четных- ',n,', нечетных- ',10-n)
end.
<u>Пример</u>
44 79 -39 29 -81 -50 33 -96 52 -47
Четных- 4, нечетных- 6
Монитор потому что он управляется мышкой