Найдите максимальное целое неотрицательное число, все цифры которого различны, которое кратно n

@_Tomato_ · Регистрация: 26.04.2019

Author24 — интернет-сервис помощи студентам

Найдите максимальное целое неотрицательеое число, все цифры которого различны, которое кратно n.

@ZX Spectrum-128 · 26.04.2019, 10:58

Взято отсюда:
Посчитайте количество целых чисел от L до R, все цифры которых различны

Pascal

var
  max, i, n, c: integer;
  d: Integer;
  s: set of 0..9;
  f: Boolean;
 
begin
  write('Введите число: ');
  readln(c);
  max := 0;
  for i := 1 to MaxInt - 1 do 
    if (i mod c = 0) then
    begin
      n := i;
      s := [];
      repeat
        d := n mod 10;
        n := n div 10;
        f := d in s;
        Include(s, d);
      until (n = 0) or f;
      if not f then 
      begin
        Write(i, ' ');
        if i > max then 
          max := i;
      end;
    end;
  writeln;
  writeln('Max: ', max);
end.

@_Tomato_ 0 / 0 / 0 Регистрация: 26.04.2019 Сообщений: 1
		1
	Найдите максимальное целое неотрицательное число, все цифры которого различны, которое кратно n 26.04.2019, 09:21. Показов 1504. Ответов 1 Метки нет (Все метки) Найдите максимальное целое неотрицательеое число, все цифры которого различны, которое кратно n. 0

	26.04.2019, 10:58

Опции темы