Найдите минимальный делитель числа, который больше единицы

@neolanta · Регистрация: 17.12.2013

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

Помогите исправить ошибку. Не могу сообразить.
Найдите минимальный делитель числа, который больше единицы;
Вот мой код:

Pascal

PROGRAM PR;
USES CRT;
VAR N,k,min,I:INTEGER;
A:ARRAY [1..15] OF INTEGER;
BEGIN
CLRSCR;
WRITELN('INPUT N');READLN(N);
k:=1;
FOR I:=2 TO N DO
IF (N MOD I=0) THEN
BEGIN
A[I]:=I;
k:=k+1;
WRITELN(A[I]);
END;
MIN:=A[1];
FOR I:=2 TO k DO
IF A[I]<MIN 
THEN
BEGIN
MIN:=A[I]; 
WRITELN(MIN);
END
ELSE WRITELN(MIN);
READKEY;
END.

@Puporev · 18.12.2013, 19:23

А при чем тут массив?

Pascal

var n,a:integer;
begin
write('n=');
readln(n);
a:=2;
while n mod a<>0 do inc(a);
write('Íàèìåíüøèé äåëèòåëü=',a);
readln
end.

@neolanta · 18.12.2013, 19:34 **[ТС]**

так просто????

Добавлено через 3 минуты
Да!!!!!!!!!!!!!!!!!!!!! Женская логика - штука сложная!!!! Спасибо огромное.

@neolanta 0 / 0 / 1 Регистрация: 17.12.2013 Сообщений: 5
	18.12.2013, 19:34 [ТС]	3
	так просто???? Добавлено через 3 минуты Да!!!!!!!!!!!!!!!!!!!!! Женская логика - штука сложная!!!! Спасибо огромное. 0

Опции темы