Скажите пожалуйста, где ошибка? Задание звучит так: «Получить все простые делители числа»?

Question

[Александр Ситник]

var n,i,k,count: integer;
begin
writeln('Введите натуральное число: ');
readln(n);
count:=0;
for i:=2 to n-1 do begin
                    if n mod i = 0 then begin
                                            for k:=1 to i-1 do
                                            if (i mod k = 0) then begin
                                              count+=1;
                                              if count<=2 then
                                                            writeln(i, ' ');
                                            end;
                                      end;
                         end;
                    
end.

Answer 1

[Алексей]

Кажется ошибка как минимум тут - k:=1 - любое число делится на 1 без остатка.

Comments

[Александр Ситник]

То есть нужно написать k:=2?

[Алексей]

Александр Ситник: конечно, вы же в предыдущем цикле начинаете искать делители начиная с двойки.

[Александр Ситник]

k нужно для того, чтобы проверить является ли делитель простым

[Александр Ситник]

В первом цикле ищем просто делители
Во втором проверяем: являются ли эти делители простыми числами

[Александр Ситник]

Поэтому начиная с 1

[Александр Ситник]

Но я попробовал. Не робит

[Алексей]

Александр Ситник: Хотя.... вы "обошли" этот делитель далее в условии count<=2, так что смотрите что Армянское Радио советует. Если будете ставить k:=2, тогда еще count<=2 надо будет заменить на count=0 (отсутствие делителей).

[Алексей]

Александр Ситник: Попробуйте такой код:

var n,i,k,count: integer;
begin
writeln('Введите натуральное число: ');
readln(n);
for i:=2 to n-1 do begin
                    if n mod i = 0 then begin
                                            count:=0;
                                            for k:=2 to i-1 do
                                            if (i mod k = 0) then begin
                                              count+=1;
                                            end;
                                            if count=0 then
                                                            writeln(i, ' ');
                                      end;
                         end;
                    
end.

Answer 2

[Армянское Радио]

count=0 должно быть после begin

Comments

[Александр Ситник]

Не, вот если например ввести число 16, то программа выдает 2 и 4, а 4 не должно выводиться

Answer 3

[Мария Мальцева]

Ошибка - что count не очищаете для перед циклом с k; ну и k, как сказали выше, нужно начинать с 2, так как любое число делится на 1.

Ещё i можно начинать с 2 и до (n/2) - поскольку делителей дальше не будет
Ну и k, соответственно, с 2 до (i/2)

var 
	n,i,k: integer;
	flagSimple: boolean;
begin
	writeln('Введите натуральное число: ');
	readln(n);
	for i:=2 to (n/2) do 
	begin
		if n mod i = 0 then 
		begin
			flagSimple := true;		//считаем пока, что i - простое (ну или count := 0, если использовать число)
			for k:=2 to (i/2) do
				if (i mod k = 0) then
				begin
					flagSimple := false;
					break;		//выходим из цикла for для k, так как обнаружили, что i - не простое
				end;
			if (flagSimple = true) then
				writeln(i, ' ');
		end;
	end;
						
end.

Answer 4

[tsarevfs]

var n, i, k, count: integer;
begin
writeln('Введите натуральное число: ');
readln(n);
count := 0;
for i := 2 to n - 1 do begin
    if n mod i = 0 then begin
        for k := 1 to i - 1 do // ищем делители делителя
            if (i mod k = 0) then begin //нашли очередной
                count += 1; //увеличили счетчик (и да, для 2 делителя начинать будем уже не с 0)
                if count <= 2 then //и сразу очень странная проверка 
                                   //мы не закончили поиск, значение счетчика не окончательное
                                   //да и почему 2, поиск то до i - 1
                    writeln(i, ' ');
            end;
    end;
end;

end.