Нужно подсказать

[Paster Fob]

Я в общем ответил.11 класс закончил в 1999 году. мне 29 лет.

[Paster Fob]

начал изучать множества,вот уже больше 3-ёх часов пытаюсь решить эту задачу



так и не могу ничего придумать.

var sn:set of byte;i,n:byte;
begin
  sn:=[];
  for i:=1 to 20 do
    begin
      n:=1+random(50);
      sn:=sn+[n];
        if n in sn then

    end;
  readln

end.

Подскажите как такое решить?Ещё раз повторяю решать за меня не надо.Нужно только указать как действовать,типа как учитель ученику.

Если бы наоборот,если n не входит в множество sn,то вывести на экран,но прилепить not к in не получается.

[vovk]

" not (n in sh)"
К тому же цикл for тут не подходит тут скорее подходит while,
а с for будет 20 итераций, но не обязательно(даже вряд ли) 20 выводов числа.

[Hacker19_90]

но прилепить not к in не получается.

Да легко

count := 0;
enum_num := [];
randomize;
repeat
    num := random(50) +1;
    if not(num in enum_num) then 
    begin
        enum_num := enum_num + [num];
        Inc(count);
        Write (num:3);
    end;
until count > 20;

[Paster Fob]

Сообщение от vovk

" not (n in sh)"
К тому же цикл for тут не подходит тут скорее подходит while,
а с for будет 20 итераций, но не обязательно(даже вряд ли) 20 выводов числа.

ну да while или repeat здесь нужен.спасибо за подсказку.Я пробовал так n not in sn,оказалось маленько по- другому.Самое интересное в книге дают задачи сейчас,а объяснят через пару глав,это специально,что бы помучался наверное?

[Poma][a]

ну ввёл. и что?...

снова мой косяк... неправильно прочитал задание

[Paster Fob]

Сообщение от Hacker19_90

Да легко

count := 0;
enum_num := [];
randomize;
repeat
    num := random(50) +1;
    if not(num in enum_num) then 
    begin
        enum_num := enum_num + [num];
        Inc(count);
        Write (num:3);
    end;
until count > 20;

повторяю ещё раз,за меня решать не надо,я сам это сделаю,нужно просто подсказывать.

[Paster Fob]

Очередной вопрос от новичка.Как читать одновременно из двух файлов?
while not eof(f1) or not eof(f2) do...
так?

[Poma][a]

Смотря что вы хотите...

[Paster Fob]

ну к примеру прочитать символы из двух файлов ну и сдлелать с ними что-нибудь
или проще по отдельности обработать?