Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Pascal] Число, делящееся на 13, 17, 19

Автор: IceTi 3.4.2007, 22:02

3. К числу ***999 припишите три такие цифры, чтобы полученное шестизначное число делилось на 13, 17, 19.

a:=1000000*x+100000*y+10000*z+999; дальше if ((a div 13) and (a div 17) and (a div 19)) = 0
Пытался решить, но не получается. Не знаю какой цикл задать...

Автор: volvo877 4.4.2007, 01:24

Проверка, делится ли одно число на другое - это mod, а не div ...

Вот такой цикл:

Код


  for i := 100 to 999 do begin
    a := 1000*i + 999;
    if ((a mod 13) = 0) and ((a mod 17) = 0) and ((a mod 19) = 0)
    then writeln(a);
  end;

Автор: IceTi 4.4.2007, 14:41

Спасибо. Блин опять тему разделили smile

Автор: IceTi 4.4.2007, 14:59

Kuvaldis мне разрешил Alexeis писать несколько вопросов в топике, если задачи одного типа( а задачи были одного типа "Вложенный цикл") smile

P.S: обидно =(