CODE
program liczba ;
uses crt;
var i,j,suma:word;
l:array[1..1000] of word;
begin
clrscr;
for j:=1 to 1000 do
begin
l[j] := j;
suma:=0;
for i:=1 to l[j]-1 do
begin
if l[j] mod i = 0 then
suma:= suma+i;
end;
if suma=l[j] then
writeln('liczba to:', l[j]);
end;
readkey;
end.
uses crt;
var i,j,suma:word;
l:array[1..1000] of word;
begin
clrscr;
for j:=1 to 1000 do
begin
l[j] := j;
suma:=0;
for i:=1 to l[j]-1 do
begin
if l[j] mod i = 0 then
suma:= suma+i;
end;
if suma=l[j] then
writeln('liczba to:', l[j]);
end;
readkey;
end.
Co zrobić aby program nie bazował na tablicach tylko na zawykłych zmiennych
)
