Напишите программу, которая в последовательности целых чисел определяет количество нечётных чисел, кратных 3. программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность количество чисел не превышает 1000. введённые числа по модулю не превышают 30 000. программа должна вывести два числа: длину последовательности (завершающий 0 не учитывается) и количество нечётных чисел, кратных 3. пример работы программы: входные данные: 4, 6, 15, 180, 0. выходные: 4, 1.

// PascalABC.NET 3.3

begin
  var a:=ReadSeqIntegerWhile(x->x<>0).ToArray;
  Print(a.Count,a.Where(x->(x mod 2<>0)and(x mod 3=0)).Count);
end.

Пример:
20 87 15 46 61 0
5 2 

var i,j,n,k,k1,k2,k3: integer; bb: boolean;

a: array of integer;

begin

write('N = ');

readln(n);

if ((n mod 3 = 0) and (n<>0)) then begin

write('K1 = ');

readln(k1);

write('K2 = ');

readln(k2);

write('K3 = ');

readln(k3);

setlength(a,n);

for i:=0 to n-1 do begin

write('Заполним номер ',i+1,' -> ');

readln(a[i]);

end;

i:=0;

while (i<n) do

begin

a[i]:=k1-a[i];

a[i+1]:=k2-a[i+1];

a[i+2]:=k3-a[i+2];

inc(i,3);

end;

write('K = ');

readln(k);

for i:=0 to n-2 do

if (a[i]+a[i+1]>=k) then begin write('В комнатах ',i+1,' и ',i+2,' есть ',a[i]+a[i+1],' свободных мест'); bb:= true; end;

if (bb=false) then writeln(0);

end else writeln('Введите число кратное 3 и неравное 0');

readln;

end.

Объяснение:Существуют различные защиты информации вот некоторые из них:

1.) Шифрование сокрытия данных от злоумышленника путём изменения входных данных(существуют методы симметричного и асимметричного шифрования)

2.) Хэширование - на вход алгоритму подаются данные, а он возвращает последовательность одного размера

без зависимости от длины первоначальных данных. Используется при авторизации на сайтах (так хранят пароли в базах данных),

при создании цифровой подписи. Возможен взлом методом подбора коллизий