Pascal - Konsolowe

Dzielniki liczby

Dzielniki liczby
Pascal - Konsolowe

Program: wyszukujący dzielniki podanej liczby, a następnie sortujący je malejąco.

Użytkownik podaje liczbe bazową na której wykonywane są operacje – odnalezienia dzielników i posortowania ich malejąco.

Kompilator: Turbo Pascal

Galeria:

Program w akcji.

Kod programu:

program dzielniki;
uses Crt;
var
	i, j, m, x,n, kon : Integer;
	tablica : Array[1..100] of Integer;
begin
	ClrScr;
	Writeln('Podaj liczbe: ');
	read(n);
	WriteLn('Wszystkie dzielniki: ');
	for i:= 1 to n do
	begin
		if (n mod i) = 0 then
		begin
			j:= j + 1;
			tablica[j]:= i;
			Write(i,' ');
		end;
	end;
	writeln;
	WriteLn('Posortowane malejąco: ');
	repeat
	kon:= 0;
	for i:= 1 to j - 2 do
	begin  for x:= j downto 2 do
	begin
		if (tablica[x - 1] < tablica[x]) then
		begin
			m:= tablica[x];
			tablica[x]:= tablica[x - 1];
			tablica[x - 1]:= m;
			kon:=kon+1;
		end;
	end;
	end;
	until (kon=0);
	for i:= 1 to j do Write(tablica[i],' ');
	ReadKey;
end.