Паскаль решить задачу

[Afroditaa]

Плиз, помогите решить!!!

задача.
Пароль равен количеству чисел от 1 до 10000 не делящихся на 13 и 17. Чему равен пароль? (написать прогу на паскале и дать ответ)

на выходе по идее должно получиться 8643

посчитала так: 10000/13 = 769(кол-во) целых чисел делящихся на 13) + 10000/17 = 588 (кол-во целых чисел делящихся на 17)= 1357
10000-1357 = 8643

Или я совсем овца, или логика в моих вычислениях присутствует ????

[Stilet]

А я бы лучше брутфорсом прошелся...
Ато ведь и коллизии можно подхватить. 10000 при таких условиях - ерунда.

Кстати брут:

var c,i:integer;
begin c:=0;
 for i:=1 to 10000 do
   if ((i mod 13)<>0)and((i mod 17)<>0) then inc(c);
 write(c);
 readln;
end.

Говорит что 8688

P.S. Чуть поправился

[Serge_Bliznykov]

только ради вашего цвета волос...

var i, pass : integer;
begin
   pass := 0;
   for i:=1 to 10000 do
     if ((i mod 13)<>0) and ((i mod 17)<>0) then Inc(pass);
   WriteLn('password = ', pass);
   Readln
end.

а название темы в следующий раз давайте более развёрнутое, что нужно сделать/найти и т.д.

[Afroditaa]

А я бы лучше брутфорсом прошелся...
Ато ведь и коллизии можно подхватить. 10000 при таких условиях - ерунда.

вот ваще для меня загадка, че тут написано )))))

только ради вашего цвета волос...

огромное вам МЕРСИ

Спасибо ребята, действительно, проверила и получилось 8688! Вывод: я ОВЦА ))

[TinMan]

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

Или я совсем овца, или логика в моих вычислениях присутствует ????

Хороший вопрос ))
Логика присутствует, но покидает их раньше времени.. ) Надо еще "учесть коллизии" (это я цитирую Stilet'а). Из суммы количества чисел, делящихся на 13 и на 17 надо вычесть количество чисел, делящихся на их произведение:

10000 - (10000 / 13) - (10000 / 17) + (10000 / (13*17)) =
= 10000 - 769 - 588 + 45 = 8688

Вывод: я ОВЦА ))

Не, не совсем.. ))) Это те, кто постит условия и приходит за решением - бараны (не побоюсь этого слова))).

вот ваще для меня загадка, че тут написано )))))

"брутфорс" - англ. brute force = полный перебор всех комбинаций (буквально: грубая сила)
"коллизии" - одновременное деление на оба числа
"10000 при таких условиях - ерунда" - цикл до 10000 при таких небольших потребностях в вычислениях займет не очень много времени.

2 Серж:
поправь код, а то винегрет выходит из Pascal и C )).