Расстояние должно быть от комьпютера 30см
Var x,n,i,t,k:integer;
begin
read(x,n);
t:=0;
k:=1;
while t<n do
begin
k:=k*x;
inc(t); //t:=t+1
end;
end.
Вроде так.
<span>1 байт = 8 бит, тогда </span>8 байт - 64 бит
var a,s,i:integer;
begin
randomize;
s:=0;
for i:=1 to 15 do
begin
a:=random(100);
s:=s+a;
end;
write('s=',s);
end.