Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Задача на множества
{Множество заполняется 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.     
1 | Автор: galstuk | 2013-06-27, 16:13   |  Репутация: [ + 0 ]
1 | Автор: galstuk | 2013-06-27, 16:13   |  Репутация: [ + 0 ]
for i:=c to d do
if i mod 2 = 0 then count:=count+1;


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2013-06-27, 18:01   |  Репутация: [ + 211 ]
  • Страница 1 из 1
  • 1
Поиск: