Исходники и листинги ::: Pascal ::: Простые делители
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
  program prost_delit;
  uses crt;
  var x:longint;
  begin
     ClrScr;
     Write ('Vvedite chislo: ');
     Readln (x);
     Write (x, ' = ');
     While (x mod 2)=0 do
        begin
           x:=x div 2;
           Write ('2 * ');
        end;
     While (x mod 3)=0 do
        begin
           x:=x div 3;
           Write ('3 * ');
        end;
     While (x mod 5)=0 do
        begin
           x:=x div 5;
           Write ('5 * ');
        end;
     While (x mod 7)=0 do
        begin
           x:=x div 7;
           Write ('7 * ');
        end;
     While (x mod 11)=0 do
        begin
           x:=x div 11;
           Write ('11 * ');
        end;
     While (x mod 19)=0 do
        begin
           x:=x div 19;
           Write ('19 * ');
        end;
     While (x mod 23)=0 do
        begin
           x:=x div 23;
           Write ('23 * ');
        end;
     Write (x);
     Readln
  end.
<<< Предыдущая работа

Вернуться в галерею исходников 		Простые делители
Автор: Sanek_xXx
Город: Казань
 Дата: 01.02.2007  19:37
Комментариев: 2
Просмотров: 456
Оценка: 0 (0|0|0|0|0) [0]
Вернуться на главную
Авторский комментарий к работе: Программа разлагает число на произведение его простых делителей
Вы не можете оценивать

КОММЕНТАРИИ К РАБОТЕ:
zergant* ::: комментарий от 25.02.2008 | 16:30
zergant Сведущий (ур.9)
Очки: 2123
Город: Ирбит
Тв. работ: 25
Рег: 27.10.2007 (5995)
ГЫ !!!!Мне ниче в этом не понятно !!!


--------------------
Жизнь всегда хороша - если смотреть на нее с нужной стороны !!!
Администратор 1-го ранга (Координатор) Alex_D* ::: комментарий от 03.03.2007 | 00:20
Alex_D Мастер (ур.17)
Очки: 35293
Город: Новосибирск
Тв. работ: 112
Рег: 27.04.2006 (34)
Вот! Как я предполагал - так и оказалось!

А для тебя простые числа заканчиваются на 23? Их еще великое и великое множество! Если быть точным, то бесконечность!.. Поэтому эффективность этого кода близка к нулю! Полезности, оригинальности и универсальсти я здесь тоже не наблюдаю.

Также хочется отметить нерациональность кода. Он неоптимизирован. Сделал бы хоть разложение через последовательный вызов функций, а не тупо копи-паст использовал.



Делай выводы!


--------------------
А вы думали, я здесь случайно?