В массиве найти элемент, у которого сумма цифр равна произведению.


Решите, пожалуйста, а то тему не поняла..

1

Ответы и объяснения

Лучший Ответ!
2014-03-13T23:33:29+00:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.
Const
    n = 100;

var
    a: array[1..n] of integer;
    k, i, s, p: integer;

begin
    for i := 1 to n do
    begin
        a[i] := random(200);
       
        p := 1;
        s := 0;
        k := a[i];
        while(k > 0) do
        begin
            s := s + k mod 10;
            p := p * k mod 10;
            k := k div 10;
        end;
       
        if p = s then
            Writeln(a[i], ' ');
    end;
end.