Простая задача на линейный алгоритм! Срочно!, Помогите написать программу Опции

[unFair]

Которая звучит след. образом: "Найдите произведение чисел 4х значного числа" Тоесть, по-идее, если задается число 1234, то 1*2*3*4=24... Кто может, напишите плз... Нужна срочно, завтра последний день когда я могу её здать, иначе - крендык мне... Делается вероятно через mod, но точно как я не знаю, иначе бы давно написал

[unFair]

Текс... Поспешил я тему создавать... Извините, если что.
ПС: Код задачи:

Код

Program Name;
Uses Crt;
Var Number,      {заданное число}
   i, j, k, l,  {цифры числа}
   P : Integer; {произведение цифр}
BEGIN
 ClrScr;
 Write( 'Введите четырехзначное число : ' ); ReadLn(Number);
 Number:=Abs(Number);
 Write( 'Цифры числа ' , Number , ' : ' );
 i := Number div 1000; Write(i:3);       {первая цифра}
 j := Number div 100 mod 10; Write(j:3); {вторая цифра}
 k := Number div 10 mod 10; Write(k:3);  {третья цифра}
 l := Number mod 10; WriteLn(l:3);       {четвертая цифра}
 P := i * j * k * l;
 WriteLn( 'О т в е т : произведение цифр равно ' , P );
 ReadLn
END.

Сообщение отредактировано: volvo - 28.12.2004 22:03

[virt]

Код

p:=1;
read(n);
while n > 0 do
  begin
     p:=p * (n mod 10);
     n:=n div 10;
  end;

[murphy]

virt

линейный алгоритм

[virt]

murphy
а чем тебе мой алгоритм не линеен??

[volvo]

virt
Линейный алгоритм не содержит проверок условий и повторений...

[virt]

да нет ,линейный алгоритм это когда обработка n элементов данных проходит за n элементарных шагов(операций). В этом алгоритме сколько цифр -- столько и шагов.

[volvo]

virt
Ничего подобного... По определению линейного алгоритма он вообще не может содержать циклов. Как только присутствует цикл, алгоритм становится циклическим
http://do.rksi.ru/library/courses/alg/tema1_2.dbk

Сообщение отредактировано: volvo - 31.12.2004 0:22