Var x,y,z,f:integer;
begin
write('Введите число: ');
readln(x);
while x>0 do
begin
y:=x mod 10;
z:=x div 10;
while z>0 do
begin
if (z mod 10)=y then f:=1;
z:=z div 10;
end;
x:=x div 10;
end;
if f=1 then writeln('Верно, есть одинаковые цифры')
else writeln('Нет одинаковых цифр')
<span>end.
Если использовать строковые ф-ии, то программа будет проще:
var
i,k,f:integer;
s,t:string;
begin
write('Введите число: ');
readln(s);
k:=length(s);
for i:= 1 to k do
begin
t:=copy(s,i+1,k-i+1);
if pos(s[i],t)>=1 then f:=1;
end;
if f=1 then writeln('Верно, есть одинаковые цифры')
else writeln('Нет одинаковых цифр')
end.</span>
1)32*64*56=114688-символов.
2)114688*8=917504 бит=112 Кбайт.
Вводим значение а=16.
Далее: "если а- четное, то делим его пополам". У нас 16 - четное, поэтому делим пополам и получаем 8. Это и есть ответ.
<u><em>Ответ:</em></u> 8
Обозначим неизвестное нам основание как x. По общей формуле представления чисел в позиционной системе счисления (поищите в сети саму формулу, на этом ресурсе ссылки, к сожалению, запрещены:) ) 30 можно представить как 3*x^1 + 0*x^0 т.е. 3x и приравнять к 24. Выходит:
3x = 24
x = 8
Основание неизвестной системы счисления: 8.
Если есть вопросы по поводу решения - оставляйте в комментариях:)
1 алфавит 32=2^5. 1символ 5 бит. объем =5*20=100бит. 2 алфавит 64=2^6 1символ 6 бит. объем 6*15=90бит. 100-90=на 10бит 1>2
