Число с максимальным произведением цифр - Turbo Pascal

Формулировка задачи:

Найти на заданном отрезке [N;M] число с максимальным произведением цифр. Паскаль

Код к задаче: «Число с максимальным произведением цифр - Turbo Pascal»

textual
max:=0;
for i:=n to m do
 begin
  j:=i;
  p:=1;
  while j>0 do
   begin
    p:=p*(j mod 10);
    j:=j div 10;
  end;
 if p>max then
  begin
   max:=p;
   imax:=i;//число с макс. произв. цифр
  end;
 end;

11   голосов, оценка 4.273 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы