Program OkuraRain; var x: integer; begin write('Введите число Х '); readln(x); writeln('*** Alphaues is thinking... ***'); writeln('*** OK! ***'); writeln(); writeln('Делители числа Х: '); for i:=2 to (x div 2) do if x mod i = 0 then writeln (i); end.
Program OkuraRain;
var x: integer;
begin
write('Введите число Х ');
readln(x);
writeln('*** Alphaues is thinking... ***');
writeln('*** OK! ***');
writeln();
writeln('Делители числа Х: ');
for i:=2 to (x div 2) do
if x mod i = 0 then writeln (i);
end.
var
n,i:longint;
begin
write ('N = ');readln(n);
for i:=2 to n div 2 do
if n mod i = 0 then writeln (i);
readln;
end.