VPF::про натуральные числа - Форум программистов

Вероника

Дата 19.5.2005, 21:58 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Условие:
Найти все натуральные числа, не превышающие n и делящиеся на каждую из своих цифр.

Мне нужно написать это на Паскале.
Но если Вы просто покажете принцип я тоже буду благодарна.

Payne

Дата 19.5.2005, 23:17 (ссылка)

(нет голосов)

Загрузка ...

Детектив

Профиль
Группа: Участник
Сообщений: 247
Регистрация: 6.4.2005
Где: Петербург

Репутация: 2
Всего: 10

Наверное, такой код должен помочь:

Код


program numbers;
uses crt;
var
  i, j, n, digit, code: integer; {соответственно счетчики циклов, один символ, код для преобразования val}
  str_n: string; {строка, изображающая заданное число n}
  temp: char; {промежуточный символ}
  write_number: boolean; {проверяет, стоит ли печатать данный символ}

{функция, проверяющая, делится ли число n на очередную свою цифру}
function fission_chk (n, digit: integer): boolean;
begin
  fission_chk := false;
  if n mod digit = 0 then fission_chk := true;
end;

begin
  clrscr; {очищаем экран - для удобства}
  write ('Введите число n: ');
  readln (n);

  for i := 1 to n do {цикл, проверяющий все числа от 1 до n}
  begin
    write_number := true; {по началу предполагаем, что очередное число удовлетворяет условию...}
    str (i, str_n); {...преобразуем это число в строку...}

    for j := 1 to length (str_n) do {...и проверяем, делится ли число на каждую цифру...}
    begin
      temp := str_n[j];
      val (temp, digit, code); {для этого преобразуем каждый символ, изображающий цифру, в integer}
      if digit = 0 then {если цифра 0, то однозначно число пропускаем}
      begin
        write_number := false;
        break;
      end;
      fission_chk (i, digit); {проверяем, делится ли число на очередную цифру}
                                      {если не делится хотя бы на одну цифру, то не пишем его}
      if fission_chk (i, digit) = false then write_number := false; 
    end;

    {наконец, если после всех проверок write_number все еще равно true, то печатаем очередное число}
    if write_number = true then write (i:5);
  end;
  repeat until keypressed;
end.

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

Вероника

Дата 20.5.2005, 11:43 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Вот спасибочки!!!
За быстрый ответ еще раз спасибо!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »