В записи по некоторому основанию 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>
Var a, b : real;
begin
readln(a);
readln(b);
if a>b then writeLn(a,b)
else writeln(b,a);
readln;
end.
Попробуй так
"Форматування", вроде как.
Var
x, a, b, c, y: integer;
begin
Write('Введите целое трехзначное положительное число ->');
Readln(x);
a := x mod 10;
y := 100 * a + (x div 10);
Writeln('Первоначальное число было: ', y);
b := y mod 100;
Writeln('Зачеркнули первую цифру: ', b);
b := 10 * b;
Writeln('Умножили на 10: ', b);
b := b + (y div 100);
Writeln('Прибавили зачеркнутую цифру: ', b);
Writeln('И получили введенное нами число - результат')
end.
Тестовое решение:
Введите целое трехзначное положительное число ->183
Первоначальное число было: 318
Зачеркнули первую цифру: 18
Умножили на 10: 180
Прибавили зачеркнутую цифру: 183
И получили введенное нами число - результат
Program gt;
var x,y,s:real;
n:longint;
begin
read(x,y);
read(n);
s:=n*y+x;
writeln(s);
end.
2)program gt;
var z,y:real;
n,h:longint;
begin
read(z,y);
{y-расстояние между столбами}
read(n);
h:=round((n*z/y));
if(h>(n*z/y))then h:=h-1;
writeln(h);
end.