Составить функцию для нахождения наименьшего нечетного натурального делителя k (k не = 1) любого заданного натурального числа n.

@Ильфир · Регистрация: 04.12.2009

Author24 — интернет-сервис помощи студентам

@Gelo · 08.06.2011, 15:37

Delphi

Function delitel(n:integer):integer;
var i:integer;
begin
i:=2;
result:=0;
while result=0 do begin
if n mod i = 0 then result:=i;
inc(i); end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var n:integer;
begin
n:=StrToInt(Edit1.Text);
Edit2.Text:=IntToStr(delitel(n));
end;

@Ильфир 3 / 3 / 0 Регистрация: 04.12.2009 Сообщений: 31
		1
	Составить функцию для нахождения наименьшего нечетного натурального делителя k (k не = 1) любого заданного натурального числа n. 08.06.2011, 10:48. Показов 2866. Ответов 1 Метки нет (Все метки) Составить функцию для нахождения наименьшего нечетного натурального делителя k (k не = 1) любого заданного натурального числа n. 1

	08.06.2011, 15:37

Составить функцию для нахождения наименьшего нечетного натурального делителя k (k не = 1) любого заданного натурального числа n.

Решение