Pascal proszę o pomoc, Proszę o szybką pomoc Opcje

[efect1]

witam mam program który z liczb od 1 do 1000 wypisuje liczby doskonałe

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.

Co zrobić aby program nie bazował na tablicach tylko na zawykłych zmiennych

[efect1]

mam teraz kartkówk e i nie mieliśmy jescze tablic , proszę o poprawienie tego skryptu tak aby nie było tablic ( nic mi do głowy nie przychodzi (IMG:http://forum.php.pl/style_emoticons/default/sad.gif) )

Ten post edytował efect1 20.10.2008, 13:36:36

[mike]

mam teraz kartkówk e i nie mieliśmy jescze tablic , proszę o poprawienie tego skryptu tak aby nie było tablic ( nic mi do głowy nie przychodzi (IMG:http://forum.php.pl/style_emoticons/default/sad.gif) )

A ja prosze o kontakt do Twojego nauczyciela mały oszuście (IMG:http://forum.php.pl/style_emoticons/default/tongue.gif)
Zamykam.

~webasek skasowałem Twojego posta. Naprawde myślisz, że na dłuższą metę tak mu pomożesz?