101100 =================================================
1024 кбит = 2^10 бит
128 Гбит = 2^17 бит 2^14 байт
32 Гбит = 2^15 бит = 2^12 байт
Https://ru-static.z-dn.net/files/d73/a2b7f905e5eeb3ee891dc9f6597bb418.jpg
//PascalABC.NET
//В задаче есть ограничение по времени в 1 секунду
//поэтому была использована функция milliseconds
//которая возвращает кол-во миллисекунд с момента
//начала работы программы
var
N, cur, count: uint64;
begin
read(N);
cur := 1;
count := 0;
while (cur <> 0) and (milliseconds() / 1000 < 0.78) do
begin
cur := (cur * 10 + 1) mod N;
count := count + 1;
end;
if (cur = 0) then write('1' * (count = 1 ? count : count + 1))
else write('NO');
end.
Program n1;
var a: array[1..10] of integer;
i,k: integer;
begin
randomize;
writeln('исходный массив: ');
k:=0;
for i:=1 to 10 do
begin
a[i]:=random(15);
write(a[i],' ');
if a[i] mod 2<>0 then k:=k+1;
end;
writeln;
writeln('количество нечетных: ',k);
end.