Vari:integer;beginfor i:=100 to 999 do beginif (i mod 15=11) and (i mod 11=9) thenwrite(i+' ');end;end. Писал на скорую руку,могут быть ошибки
Uses crt;
Var A:array[1..10]of integer;
q,w,i,k,j:integer;
begin
randomize;
for q:= 1 to 10 do
begin
A[q] := random(256);
write(A[q]:4)
end;
for i := 1 to 9 do
for j := 1 to 10 - i do
if A[j] > A[j + 1] then begin
k := A[j];
A[j] := A[j + 1];
A[j + 1] := k;
end;
for i:=1 to 10 do
w:=(A[1]+A[10])/2;
write(w)
Обозначения:
A=x∈A
B=x∈{2;4;...;12}
C=x∈{3;6;...;15}
------------------------------------------
B→((C*¬A)→¬B)=1
¬B+¬(C*¬A)+¬B=1
¬B+¬C+A=1
A+( ¬B+¬C )=1 (тк A+¬A=1, то ¬A=¬B+¬C )
¬A=¬B+¬C
¬¬A=¬(¬B+¬C)
A=B*C ( A - состоит из общих элементов В и С)
А={6;12}
6+12=18
ответ 18
программа здесь: http://rghost.ru/43527025
var chislo, summa, proizv:integer;
begin
summa:=0;
proizv:=1;
repeat
Writeln('Input number: ');
Readln(chislo);
if chislo mod 2 = 0 then summa:=summa+chislo;
if chislo <>0 then proizv:=proizv * chislo;
until chislo=0;
Writeln('a) Sum = ', summa);
Writeln('b) Proizvedenie = ', proizv);
readln;
end.