Дано натуральное число N. Найти и вывести все простые делители
этого числа. Паскаль. Через вложенные циклы.
Нет комментариев
Ответы
Гость Var
n,k,x,i,j: integer;
begin
write ('Введите число: ');
readln (n);
writeln ('Простые делители числа:');
x:=0;
for i:=2 to n do begin
if n mod i =0
then begin
k:=0;
for j:=2 to i div 2 do
if i mod j=0
then begin k:=1; break end;
if k=0 then begin writeln (i); x:=1; end;
end;
end;
if x=0 then writeln ('Нет простых делителей');
end.
-------------------Пример:--------------------
Введите число: 42
Простые делители числа:
2
3
7
---------------------------------------------------
Нет комментариев
Похожие вопросы
Информатика
Pascal, цикл для, составить программу.4)Ввести 12 чисел. Определить сколько чисел кратно 5....
Информатика
Помогите пожалуйста!!!!...
Список предметов
