Используем расширенное представление числа
Ответ: основание системы счисления равно 6.
Var a,b,c,d,N:integer;
begin
Readln(N);
a:=N div 1000;
b:=(N div 100) mod 10;
c:=(N div 10) mod 10;
d:=N mod 10;
N:=a-b-c-d;
Writeln(N);
end.
<span>Кодированием числовой информации:называется совокупность приемов наименования и записи чисел.</span>
Value1 = input()
value2 = input()
def compare_value(v1, v2):
if(v1 == v2):
result = "="
elif(v1 > v2):
result = ">"
elif(v1 < v2):
result = "<"
return result
result = compare_value(value1, value2)
print(result)
Sub aaa()
s = InputBox("Введите текст")
s = Replace(s, "к", "", , , vbTextCompare)
MsgBox s
End Sub
<u>Если нужна отдельная процедура для замены:</u>
Sub ReplKk(s As String)
s = Replace(s, "к", "", , , vbTextCompare)
End Sub
Sub Test()
Dim s As String
s = InputBox("Введите текст")
ReplKk s
MsgBox s
End Sub