===== PascalABC.NET =====
begin
var n: int64;
Print('Введите натуральное число:');
Read(n);
var a := ArrFill(10, False);
while n > 0 do
begin
a[n mod 10] := True;
n := n div 10
end;
Print('В числе отсутствуют цифры');
for var i := 0 to 9 do
if not a[i] then
Print(i);
end.
Если я правильно понял ВП-вперед,НД-назад, то вперед30назад80вперед50 назад40, то она будет находиться на расстоянии 40 от первоначального положения
375*1024 =384000 байт * 8 = 3072000 бит
3072000:64000 = 48 секунд
Частично и часто...спасибо за внимание.
На Pascal
1 А - С[7] Б- T:array [1..43] of Integer; В - G1:array[1..123] of Integer; Г- K[44] Д- X[i+6] Е- P:array [1..23] of Integer;
2- A- K:array [1..25] of Integer;
for k:=1 to 25 do a[k]:=random(-30;250);
Б-