Program - Prvočísla a Rozklad na prvočinitele v jednom :)

Program napísaný v jazyku Pascal.

program prvocinitele_a_prvocisla;

var
dokolko,pom,i,j:integer;
zvysok:real;

begin
dokolko:=100;
for i:=2 to dokolko do
begin
write(i,'=');
pom:=i;
j:=1;
repeat
j:=j+1;
zvysok:=pom/j;
if zvysok = int(zvysok) then
begin
if i=j then write ('prvocislo.') else
begin
write(j);
if zvysok<>1 then write ('*')
end;
pom:=round(zvysok);
j:=1;
end;
until zvysok=1;
writeln;
end;

readln;
end.

Hodnotenie užitočnosti článku:

• ← Program - Prvočísla :)
• Program - Pyramída :) →