Дано число n.

[MACCOP]

Дано число n. Получить все простые делители
этого числа. Процедуру распознания простого числа офор-
мить отдельно. (Напомним, что простым называется число,
которое не имеет целочисленных делителей, кроме едини-
цы и самого себя).

[Mad_Cat]

а) язык?
б) сроки?
в) зарплата?

[RuVarez]

Блин че ты сюда пишеш! Это тебе в клуб математиков, а с программированием ты вообще походу не знаком!

[vlad_light]

вечером напишу код на С++

а) язык?
б) сроки?
в) зарплата?

И сколько ты хочешь за это получить?)))))

[ImmortalAlexSan]

Function prostoechislo(chislo:integer):boolean;
Var i:integer;
uslovie:boolean;
Begin
For i:=2 to chislo-1 do
begin
If (chislo mod i <>0) then
result:=true
else
begin
result:=false;
Break;
end;
end;
End;

procedure TForm1.Button1Click(Sender: TObject);
Var
n,i,j:integer;
iprost:boolean;
Begin
j:=0;
n:=strtoint(Edit1.Text);
If n=1 then
begin
Memo1.Lines.Add('×èñëî ïðîñòîå, åãî åäèíñòâåííûé äåëèòåëü = 1');
exit;
end;
For i:=1 to n do
begin
If prostoechislo(i) then
If (n mod i = 0) then
begin
inc(j);
memo1.lines.add(inttostr(j)+'-é ïðîñòîé äåëèòåëü ÷èñëà '
+inttostr(n)+' ðàâåí '+inttostr(i));
end;
end;

end;

Только я здесь использовал функцию, и медленный алгоритм... Что же вы такой меркантильный, Mad_Cat?)) 15 минут времени заняло...

[vlad_light]

ой, меня опередили))) Если хочешь - могу на С++ написать с "улучшенным" алгоритмом)

[Carbon]

Стесняюсь спросить, а нафига здесь распознавать простые числа?

Мой вариант, не определяя простоту:

#include <iostream>

void dividers(int number)
{
	int divider = 2;
	bool multiple = false;
	while (divider <= number)
	{
		if (number % divider == 0)
		{
			number /= divider;
			if (!multiple) std::cout << divider << std::endl;
			multiple = true;
		}
		else
		{
			++divider;
			multiple = false;
		}
	}
}


int main(int, char **)
{
	dividers(144);

	return 0;
}