<em>// PascalABC.NET 3.3, сборка 1549 от 17.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger; Writeln(n*' ',n)
end.
<u>Пример</u>
7
7
Procedure TForm1.Button1Click(Sender: TObject);
var
i,j,s : integer;
k : integer;
Chislo : Integer;
ChisloTmp : Integer;
begin
k:=0;
for i := 100 to 999 do
begin
s:=0;
Chislo := i;
for j := 1 to 3 do
begin
ChisloTmp := Trunc(Chislo/10);
s := s + (Chislo - ChisloTmp*10);
Chislo := ChisloTmp;
end;
if ((s and 1) = 0) then
Inc(k);
end;
Label1.Caption := 'Таких чисел будет ' + inttostr(k);
end;
ОТВЕТ:<span>Таких чисел будет 450 </span>
Надо найти I. i=128. K=500*120. I=K*i=500*120*128=60000*128=7680000 бит=960000байт. Можно было бы представить 128 как 2 в 7 степени, и считать в степенях двойки. но перевод нужен только в байты
<span>110000=48
1100=12
001=1
__
31=11111
127=1111111
</span>
Можно сделать, например, так (но это всё равно очень-очень корявый вариант):
const s='ABCDEF';
var x:string;
t:real;
a,i,n,q:integer;
begin
readln(x);
readln(q);
t:=0;
n:=length(x);
for i:=1 to n do
begin
case x[i] of
'0'..'9' : a:=strtoint(x[i]);
'A'..'F' : a:=pos(x[i],s)+9;
end;
n:=n-1;
t:=t+a*power(q,n);
end;
writeln(t);
end.
