Определить, является ли заданное число произведением цифр какого либо числа

@Aspirin · Регистрация: 05.10.2012

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

Во входном файле дано число N - произведение цифр какого либо числа. Надо написать программу, которая определяет, является ли данное число произведение цифр числа. Например дано число 1300, программа должна вывести 'No', т.к 1300 не может быть произведением цифр.

Алгоритм понял, но что-то программа всегда выдаёт Yes, в чём ошибка?

Pascal

program B;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
function prost(var x:integer):integer;
var c,k,i:integer;
   begin
      if x<10 then k:=0;
      while x>9 do begin
         c:=trunc(sqrt(x));
         k:=0;
         for i:=2 to c do begin
            if x mod i=0 then k:=k+1;
         end;
         if k=0 then break;
         x:=x div 10;
      end;
      prost:=k;
   end;
var n:integer;
 
begin
   assign(input, 'input.txt');
   reset(input);
   assign(output, 'output.txt');
   rewrite(output);
   read(n);
   if prost(n)=0 then write('Yes')
   else write('No');
 
 
end.

@qualls · 11.11.2012, 02:06

Не совсем понятно ваше задание, попробуйте перефразировать.
И напишите пару примеров подходящих чисел.

@qualls 51 / 51 / 23 Регистрация: 05.04.2010 Сообщений: 127
	11.11.2012, 02:06	2
	Не совсем понятно ваше задание, попробуйте перефразировать. И напишите пару примеров подходящих чисел. 0