Поделитесь своими знаниями, ответьте на вопрос:
Знайдіть на сервісі YouTube(можно и не искать просто ответьте) відео з теми основи інформаційної безпеки перегляньте відео запишіть у зошит рекомендації з інформаційної безпеки які раніше ви не знали найдите на сервисе YouTube (можно и НЕ искать просто ответьте) видео по теме основы информационной безопасности посмотрите видео запишите в тетрадь рекомендации по информационной безопасности ранее вы не знали
program xxx;
var i, j, k, n, p, s : integer;
a : array [1..20] of integer;
begin
write ('введите количество инверсий -');
readln(k);
write ('введите количество ламп -');
readln(n);
for i:=1 to n do
a[i]:=0;
for i:=1 to k do
begin
write ('введите инверсию P-');
readln(p);
j:=p;
while j<=n do
begin
if a[j]=0 then a[j]:=1 else a[j]:=0;
j:=j+p
end
end;
s:=0;
for i:=1 to n do
if a[i]=1 then s:=s+1;
write ('Ламп горит -', s);
readln
end.