Найти наименьшее натуральное число , сумма цифр которого равна N

@7heKing · Регистрация: 27.01.2017

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

Дано натуральное число 1<N<1000. Написать программу , определяющую наименьшее натуральное число , произведение цифр которого равно N. Если такого числа нет , результат равен 0. Через операторы For, If, Repeat, желательно самую простую, только начали проходить паскаль.

@Hitoku · 18.03.2017, 21:27

Отсюда

Pascal

uses crt;
var
  x, i, y, r: LongInt;
begin
  ClrScr;
  repeat
    Write('Введите натуральное x = ');
    Readln(x);
  until x>0;
  if x=1 then y:=1
  else y:=0;
  i:=9;
  r:=1;
  while (i>1) and (x>1) do
    if x mod i=0 then
    begin
      x:=x div i;
      y:=y+r*i;
      r:=r*10;
    end
    else Dec(i);
  if x=1 then Writeln('y = ', y)
  else Writeln('Такого числа нет');
  ReadKey;
end.

@volvo · 18.03.2017, 21:32

7heKing, так произведение или сумму? В заголовке написано одно, в самой теме - другое...

@7heKing 0 / 0 / 0 Регистрация: 27.01.2017 Сообщений: 3
		1
	Найти наименьшее натуральное число , сумма цифр которого равна N 18.03.2017, 21:18. Показов 4196. Ответов 2 Метки нет (Все метки) Дано натуральное число 1<N<1000. Написать программу , определяющую наименьшее натуральное число , произведение цифр которого равно N. Если такого числа нет , результат равен 0. Через операторы For, If, Repeat, желательно самую простую, только начали проходить паскаль. 0

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,431 Записей в блоге: 8
	18.03.2017, 21:32	3
	7heKing, так произведение или сумму? В заголовке написано одно, в самой теме - другое... 0

Найти наименьшее натуральное число , сумма цифр которого равна N

Решение