{Множество заполняется n целыми случайными равномерно распределенными числами из интервала [a, b].
Подсчитать, сколько во множестве четных чисел из интервала [c, d].}
type mn=set of integer;
var ab: mn;
cd: mn;
a,b,c,d,n,i,k: integer;
begin
k:=0;
writeln('введите количество чисел n');readln(n);
writeln('задайте интервал от a до b');readln(a,b);
writeln('задайте интервал от c до d');readln(c,d);
begin
for i := 0 to n do
ab := ab + [random(a, b)];
writeln(ab);end;
begin
for i := 0 to n do
cd := cd + [random(c, d)];
end;
writeln(cd);
end;
ab:=[a..b]+[c..d];
writeln(ab);
writeln('четных чисел из интервала [с..d] во множестве: ',k);
end.
|
|
|
|
for i:=c to d do
if i mod 2 = 0 then count:=count+1;
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
