Используя закон Де-Моргана и двойного дополнения получаем
-(-Av-B)^C = --(A^B)^C = A^B^C
Жаль редактор формул не поддерживает работу с множествами.
Program fantscrin;
const n = 100;
Var a: array [1..n] of integer;
i,j,k,s:integer;
Begin
k:=0;
for i:=1 to n do
begin
readln(a[i]);
if (a[i] = 0) then break;
k:=k+1;
end;
for i:=1 to k do
write(a[i], ' ');
for i:=1 to k do
if ((a[i] mod 10 = 3)and(a[i] mod 7 = 0)) then s:=s+a[i];
writeln('');
writeln(s);
End.
Var
a,b,c,d:integer;
begin
writeln('Введите трехзначное число: ');readln(a);
b:= a div 100;
c:= a mod 100 div 10;
d:= a mod 10;
if (b mod 2 = 0)and(c mod 2 = 0)and(d mod 2 = 0)
then writeln('yes')
else writeln('no');
end.
1. var z:array[1..8,1..5] of real;
2. n[i,k]:=random(90)-62;
Позиционная наша обычная которой пользуемся десять - 10
непозиционная римская десять - XX