Множество с содержит элементы: {100, 200, 300, 600, 900}. множество d содержит элементы: {0, 200, 500, 700, 900}.Сколько элементов содержится только в множестве d, но не содержится в множестве C

var

a: [1..100] array of integer;

i,n,p: integer;

begin

readln(n);

for i: =1 to n do

begin

readln(a[i]);

p: =2;

while (p*p< =a[i]) do

begin

if p*p=a[i] then writeln (a[i],' полный квадрат')

p: =p+1;

end;

end;

end.

пусть [a,b] - область и a< =b

var

a,b,x: real;

begin

readln(a,b,x);

if (a< =x) and (x< =b) then

writeln('принадлежит')

else

writeln('не принадлежит');

end.

2*3=6

512*128*6=393216

393216: 1024=384кб

см схему на стр 15, № 34