<span><span>var
a, b, c : longint;</span><span>function nod3 (a, b, c :longint) : longint;
begin
nod3 := nod (nod (a, b), c);
end;</span><span>function nod(var a, b: longint): longint;
begin
if (a = 0) or (b = 0) then
if a = 0 then
nod:= b
else
nod:= a
else
if a >= b then
nod:= nod( a mod b, b)
else
nod:= nod( a, b mod a)
end;</span><span>begin
read (a, b, c);
writeln (nod3 (a, b, c));
end.</span></span>
Var i,t,j, n:integer; b:array[1..20] of integer;s:string;begin write('Введите число n = '); readln(n); repeat i:= i + 1; b[i] := (n mod 10); // вывод последней цифры числа n:= n div 10; // удаление последней цифры числа until n=0; writeln(b); for i:= 1 to i do begin for j:= 2 to i do begin if b[j-1] < b[j] then begin t:=b[j-1]; b[j-1]:=b[j]; b[j]:=t; end; end; end; writeln(b); for t:=1 to i do s:= s + inttostr(b[t]); write(s); end.
В записи по некоторому основанию n число шестиразрядное, поскольку оно содержит три единицы и три нуля, всего шесть цифр. При этом, самой левой (старшей) цифрой является единица. Переходим к расширенной записи, обозначая неизвестную цифру в разряде через d:
1×n⁵+d₄×n⁴+d₃×n³+d₂×n²+d₁×n¹+d₀=1104
n⁵+Δ=1104, где Δ - некоторый "довесок", равный d₄×n⁴+d₃×n³+d₂×n²+d₁×n¹+d₀
В то же время, 1104<n⁶, поскольку в противном случае число было бы семиразрядным.
n⁵≤1104<n⁶
Приближенно извлекая из 1104 корни пятой и шестой степени получаем:
3.21≤1104<4.06 и в целых числах находим, что n=4.
Переведем 1104 в систему счисления по основанию 4:
1104 / 4 = 276, остаток 0
276 / 4 = 69, остаток 0
69 / 4 = 17, остаток 1
17 / 4 = 4, остаток 1
4 / 4 = 1, остаток 0
1 / 4 = 0, остаток 1
Теперь выпишем остатки в обратном порядке, получая 101100
<em>1104₁₀ = 101100₄,</em> т.е. проверка показала, что число в самом деле содержит три единицы и три нуля.
<u><em>Ответ: 4</em></u>
Все, кроме первого имени.
<span>book*.doc - это шаблон.</span>