program simple_num;
var n:integer;
function simple(num:integer):boolean;
var count, i:integer;
key:boolean;
begin
count := 0;
i := 1;
repeat
if num mod i = 0 then
inc(count);
inc(i);
until (i > num);
if count > 2 then
key := false
else key := true;
simple := key;
end;
begin
writeln('Введите натуральное число больше 1');
readln(n);
if n > 1 then
if simple(n) then
writeln('Число ',n, ' простое')
else writeln('Число ',n, ' непростое')
else writeln('введено число менее 1');
end.
254₁₆ = 2 · 16² + 5 · 16¹ + 4 · 16⁰ = 512 + 80 + 4 = 596₁₀
546.1₁₀ = 546.1₁₀
596 | 8 = 74 (4₄)
74 | 8 = 9 (2₃)
9 | 8 = 1₁ (1₂)
596₁₀ = 1124₈
Сначала переведём целую часть в восьмеричную систему счисления, а затем дробную:
546 | 8 = 68 (2₄)
68 | 8 = 8 (4₃)
8 | 8 = 1₁ (0₂)
546₁₀ = 1042₈
Умножаем дробную часть на 8 и записываем результат в виде:
цело_число.дробное_число
Если целое число делится на основание, то делим. А дробную часть всегда умножаем на основание и записываем в результат, как показано выше.
0. | 1 · 8 (0 / 8 = 0, 1 · 8 = 8)
0 | 8 · 8 (0 / 8 = 0, 8 · 8 = 64, поэтому 6 в целую, а 4 в дробную)
6 | 4 · 8 (6 / 8 = 8 (не делится целочисленно), 4 · 8 = 32, поэтому 3 в целую, а 2 в дробную)
3 | 2 (дальше можем не продолжать, всё зависит от точности, которая нам нужна)
Теперь собираем числа из левого блока сверху вниз:
0.063
И добавляем к 1042:
1042₈ + 0.063₈ = 1042.063₈
Результат1124₈ + 1042.063₈ = 2166.063₈
ответ2166.063₈
Пусть а - аснавание системы, тогда
14 = 1*а+4
42 = 4*а+2
100 = а*а
Если 14+42 = 100, тогда
1*а+4+4*а+2=а*а
там будет 2 корня, один отрицательный - он не подходит, второй равен 6