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

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

Форум программистов > Центр помощи > [Pascal] Вывод чисел кратных числу по маске

Автор: 119040 23.1.2007, 09:39

Нужно в десятичной записи числа заменить звездочки цифрами, если известно, что число кратно 72. Выведите найденные на экран числа.

Вот что я сварганил. Но почему-то ничего не выводится. Прошу помочь мне переделать код, чтобы он работал. Нужно срочно!

Код


Program p1;
      uses crt;
      Var i: longint;
Begin
   clrscr;
   for i:= 42000 to 42999 do
      begin
           if (i mod 72 = 0) and (i div 1000 = 42) and (i - (i div 10)=4) then write (i, ' ');
      end;
   readkey;
End.

Автор: doomik 23.1.2007, 16:02

Цитата

десятичной записи

т.е десятичная система счисления ?

Цитата

числа заменить звездочки цифрами

Я про звёздочки не понял что, куда, какие заменить ?
Давай хотябы пример вывода.

если убрать

Код


and (i div 1000 = 42) and (i - (i div 10)=4)

то он выведет числа делящияся без остатка на числа по твоему диапазону

Автор: 119040 23.1.2007, 16:39

doomik, как оказалось маска тут не требовалась. Задачу препод упростил до нельзя. Сделал. Так что уже не актуально smile

Но за то, что захотел помочь благодарю.