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

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

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


textual

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

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;
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

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

Источник
Похожие ответы