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

@larmaks · Регистрация: 21.06.2013

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

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

@Puporev · 21.06.2013, 12:36

Pascal

function del(n:integer):integer;
var d:integer;
begin
d:=2;
while n mod d<>0 do inc(d);
del:=d
end;
var n:integer;
begin
clrscr;
write('Введите натуральное n=');
readln(n);
if n=1 then write('Нет делителя не равного 1')
else write('Минимальный делитель, не равный 1=',del(n));
readln
end.

@larmaks · 21.06.2013, 13:57 **[ТС]**

Спасибо но надо наименьший нечетный натуральный делитель!(

@Puporev · 21.06.2013, 14:08

Pascal

function del(n:integer):integer;
var d:integer;
begin
d:=3;
while (d<=n)and(n mod d<>0) do inc(d,2);
if d>n then del:=0 else del:=d
end;
var n:integer;
begin
write('Введите натуральное n=');
readln(n);
if del(n)=0 then write('Нет нечетного делителя не равного 1')
else write('Минимальный нечетный делитель, не равный 1=',del(n));
readln
end.

@larmaks 0 / 0 / 0 Регистрация: 21.06.2013 Сообщений: 4
		1
	Составить функцию для нахождения наименьшего нечетного натурального делителя k (k≠1) любого заданного натурального числа n 21.06.2013, 12:26. Показов 12234. Ответов 3 Метки нет (Все метки) Составить функцию для нахождения наименьшего нечетного натурального делителя k (k≠1) любого заданного натурального числа n. И если можно то блок схему к ней) А то хочу разобраться как она работает) 0

@larmaks 0 / 0 / 0 Регистрация: 21.06.2013 Сообщений: 4
	21.06.2013, 13:57 [ТС]	3
	Спасибо но надо наименьший нечетный натуральный делитель!( 0

	21.06.2013, 14:08