Program n_1; var x, y, z: integer; begin x := 1; z := 0; writeln('Введите число, для которого необходимо найти делители(в данном случае ввести нужно 1000000): '); readln(y); while x <= y do begin z := y mod x; if z = 0 then begin writeln('Делитель: ', x); x := x + 1; end else x := x + 1; end; end.
Это программа на Паскале для поиска делителей для любого числа задаваемого пользователем.
var x, y, z: integer;
begin
x := 1;
z := 0;
writeln('Введите число, для которого необходимо найти делители(в данном случае ввести нужно 1000000): ');
readln(y);
while x <= y do
begin
z := y mod x;
if z = 0 then
begin
writeln('Делитель: ', x);
x := x + 1;
end
else
x := x + 1;
end;
end.
Это программа на Паскале для поиска делителей для любого числа задаваемого пользователем.