K = 8
N = 10 + 12 = 22;
из формулы
подбираем такое минимальное i, что
i = 5(
)
I для 1 пароля 8*5 = 40 бит
тогда для
* 10 паролей нам потребуется
3200 Байт
//На Pascal
const N = 40;
var a: array [1..N] of longint;
i,k: longint;
begin
for i := 1 to N do
readln(a[i]);
k := 0;
for i := 1 to N - 1 do
if ((a[i] + a[i + 1]) mod 6 <> 0) and (a[i] * a[i + 1] <1000) then
k:=k+1;
writeln(k);
<span>end.</span>
Четное число, это когда остатка нет
используют функцию mod
пример использования
var a:integer;
begin
readln(a);
if a mod 2 = 0
then write('Четное')
else write('Нечетное');
end.