№1) 49₁₀ -> 110001₂
№2) 641₈ = 417₁₀
№3) DA₁₆ -> 332₈
№4) 664₁₀ -> 298₁₆
№5) 4CEA₁₆ -> 046352₈
Объяснение:
1) 49₁₀ -> x₂
49 mod 2 = 1
24 mod 2 = 0
12 mod 2 = 0
6 mod 2 = 0
3 mod 2 = 1
1 mod 2 = 1
Остаток от деления записываем в обратном порядке, получаем число: 110001₂
49₁₀ -> 110001₂
2) 641₈ -> x₁₀
641₈ = 8²*6 + 8¹*4 + 8⁰*1 = 384 + 32 + 1 = 417₁₀
641₈ = 417₁₀
3) DA₁₆ -> x₈
Сначала переведём в десятичную, потом в восьмеричную: DA₁₆ = 16¹*13 + 16⁰*10 = 208 + 10 = 218₁₀
218₁₀ -> x₈
218 mod 8 = 2
27 mod 8 = 3
3 mod 8 = 3
0 mod 8 = 0
Остаток от деления записываем в обратном порядке, получаем число: 0332₈
DA₁₆ -> 332₈
4) 664₁₀ -> x₁₆
664 mod 16 = 8
41 mod 16 = 9
2 mod 16 = 2
0 mod 16 = 0
Остаток от деления записываем в обратном порядке, получаем число: 0298₁₆
664₁₀ -> 298₁₆
5) 4CEA₁₆ -> x₈
Сначала переведём в десятичную, потом в восьмеричную: 4CEA₁₆ = 16³*4 + 16²*12 + 16¹*14 + 16⁰*10 = 16384 + 3072 + 224 + 10 = 19690₁₀
19690₁₀ -> x₈
19690 mod 8 = 2
2461 mod 8 = 5
307 mod 8 = 3
38 mod 8 = 6
4 mod 8 = 4
0 mod 8 = 0
Остаток от деления записываем в обратном порядке, получаем число: 046352₈
4CEA₁₆ -> 046352₈
n=5;
Var
ar:array[1..n] of integer;
ar2:array[1..n] of integer;
i,k:integer;
function prost(a:integer):boolean;
var i:integer;
b:boolean;
begin
b:=true;
for i:=2 to a div 2 do
if a mod i=0 then
begin;
b:=false;
break;
end;
if a=1 then b:=false;
prost:=b;
end;
begin;
randomize;
k:=0;
for i:=1 to n do
begin;
ar[i]:=random(101);
write(ar[i]:4);
end;
writeln;
for i:=1 to n do
if prost(ar[i]) then
begin;
inc(k);
ar2[k]:=ar[i];
write(ar2[k]:4);
end;
end.