Var a,i,b:integer;
begin
writeln('Введи число');
readln(a);
writeln('Уадай');
while a<>b do
begin
readln(b);
if a<b then
begin writeln('Меньше'); i:=i+1; end
else
if a>b then
begin writeln('Больше'); i:=i+1; end;
end;
writeln('Попыток было:', i)
end.
Что у айфона процесор 64-bit
(Скорость)
Во вложении
-------------------
E =15 (10cc)
A=10 (10cc)
3 2 1 2 -1 -2 <--- позиции цифр в числе
E 4 1 A, 1 2 (16cc) =15*16^3+4*16^2+1*16+10*16^0+1*16^-1+2*16^-2=
=61440 + 1024 + 16+10 + 0,0625 +0,0078125=
=62490,0703125
Держи. А вообще нужно самому попытаться сначала)