Программирование и WEB-дизайн

Меню

Главная
MY_CMS
Web -
программирование  Программирование

Задачи Борьба с
вирусами Морской
бой Assembler в
Pascal
Электроника
МК85М  Старые
проекты  Учебник
Линукс  Гостевая
книга

Новость

17.02.2006
21:14
Тестируем новый скин сайта

На сайте временно установлен
новый скин AGU. Данный скин предназначен для сайта ФАМИКОН АГУ,
здесь я хочу протестировать его в работе. О найденных недочетах
сообщаем в Гостевой книге сайта.

Раздел: Новости

Поиск

Рассылка

E-Mail:

:

Баннерка

[AD]

[AD]
[AD]
Наша
кнопка:
[AD]
Код
кнопки:
<a href="http://my-cms.jino-net.ru" target="_blank"><img src="http://my-cms.jino-net.ru/images/my_cms.gif" width="88" height="31" border="0" alt="MY-CMS" title="Программирование и WEB-дизайн" /></a>

Разложение на простые множители

/ Программирование /
Задачи

Дано
натуральное число a.
Требуется разложить это число на простые
множители.

Пример:
a = 12345
Результат: 3 5
823

Вариант решения:

Code (Pascal):

var a, N: LongWord;
B: Boolean;

begin
ReadLn (a);
N := 2;
while a > 0 do
begin
B := True;
while N <= a div 2 do
begin
if a mod N = 0 then
begin
Write (N, ' ');
a := a div N;
B := False;
Break;
end; {if}
Inc (N);
end; {while}
if B then
begin
Write (a);
Break;
end; {if}
end; {while}
end.

Ваши мнения

Добавить
комментарий

*Ваше имя:

e-mail:

Ваш сайт:

ICQ:

*Контрольные
цифры:

:

*Сообщение:

* - обязательные поля.

Чат

Обновлять:

Имя:
Сообщение:

Опрос

Оцените скин AGU
Отлично
Хорошо

Удовлетворительно
Плохо
Я не знаю, что такое скин

Всего голосов: 10

Статистика

24.02.2006
15:25

Просмотров:

5651

Уникальных:

931

Рекорд:

15

На сайте:

0

Письмо
администратору сайта
MY_CMS 1.0, © Акатов Алексей, 2005 - 2006
Генерация: 0.6841 (PHP: 44% SQL: 56%)
SQL-запросов: 24
Хостинг
«Джино»