Обозначим за n%m операцию, возвращающую остаток от целочисленного деления n на m.
известно, что сумма всех целых положительных чисел a, для которых следующее логическое высказывание истинно:
не (a< 2 или a> 18 или a%x< > 0) или не (a< 4 или a> 20 или a%4< > 0)
равна 81.
найдите такое значение x, при котором это возможно. в ответе укажите целое число.
begin
for i:=1 to 7 do
begin
readln(x);
a[i]:=x;
end;
assign(f,'file.txt');
rewrite(f);
for i:=1 to 7 do
begin
str(a[i],s);
writeln(f,s);
end;
close(f);
reset(f);
k:=0;
while not eof(f) do
begin
readln(f,s);
val(s,x,c);
if x<0 then k:=k+1;
end;
close(f);
if k<>0 then writeln('В массиве ',k,' отрицательных элемента(ов)');
else writeln('В массиве нет отрицательных элементов');
erase(f);
end.