Witam,
czy mogę prosić o pomoc w przerobieniu kodu Delphi na taki, aby program po podaniu przedzialu wyswietlil wszystkie liczby fermata?
program liczby_fermata;
{$APPTYPE CONSOLE}
function Potega(Podst, Wykl : integer) : integer;
var
i, Wynik : Integer;
begin
Wynik := 1;
for i := 1 to Wykl do
Wynik := Wynik * Podst;
Potega := Wynik;
end;
function CzyPierwsza(Liczba : integer) : boolean;
var
I : integer;
begin
CzyPierwsza := True;
for I := 2 to Liczba - 1 do
begin
if Liczba mod I = 0 then
begin
CzyPierwsza := False;
Break;
end;
end;
end;
function LiczbaFermata(N : Byte) : Cardinal;
begin
LiczbaFermata := Potega(2, Potega(2, N)) + 1;
end;
const
Max = 4;
var
I : Cardinal;
begin
for I := 1 to Max do
if CzyPierwsza(I) = True then
Writeln(' ', I, ' jest liczba pierwsza (licza Fermata: ', LiczbaFermata(I), ').');
Readln;
end.