Вывести на экран максимальный делитель числа n

@axe1515 · Регистрация: 22.12.2012

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

вывести на экран максимальный делитель числа n, отличный от единицы и самого себя.

@Ginar · 17.05.2013, 10:58

Pascal

Program delitel;
uses crt;
var  a : array [1..10000] of integer; 
    n, maxj, j: integer;
     i: byte;
BEGIN
CLRSCR;
i:=1;
Writeln('Vvedite n', ' ',n); {в приделе 10000}
read(n);
While i<n do beign
If  n mod i = 0 then begin 
  For j:=1 to 10000 do begin
  a[j]:=n/i;
 Write(a[j]);
END;
END;
i=i+1 {может быть и так i:=i+1}
END;
maxj:=a[i];
For j:=1 to 10000 do begin
If a[j]>maxj then maxj:=a[j];
END;
Writeln('Максимальный делитель n', maxj);
Readkey;
END.

@Puporev · 17.05.2013, 11:42

Pascal

uses crt;
var n,d:integer;
    f:boolean;
begin
clrscr;
write('Введите натуральное число n=');
readln(n);
d:=n div 2;
f:=false;
while (d>1)and not f do
if n mod d=0 then
 begin
  write('Наибольший делитель=',d);
  f:=true
 end
else d:=d-1;
if not f then write('Это число простое, делители 1 и ',n);
readln
end.

@axe1515 0 / 0 / 0 Регистрация: 22.12.2012 Сообщений: 5
		1
	Вывести на экран максимальный делитель числа n 16.05.2013, 18:03. Показов 5637. Ответов 2 Метки нет (Все метки) вывести на экран максимальный делитель числа n, отличный от единицы и самого себя. 0

	17.05.2013, 11:42

Вывести на экран максимальный делитель числа n

Решение