|
|
 |
|
|
 |
Liczby doskonale
Mariusz_Cebula - Śro Paź 28, 2009 6:15 pm
Kod: Zaznacz wszystkoprogram prawidlowe;
uses CRT;
Var
Suma,a,i,n:LongInt;
Begin
clrscr;
writeln('Liczby doskonale w zadanym przedziale');
writeln('');
writeln('Podaj koniec przedzialu: ');
readln(n);
For a:=1 to n do
Begin
Suma:=0;
i:=0;
While i < a-1 do
Begin
i:=i+1;
if a mod i=0 then
Suma:=Suma+i;
end;
If Suma=a then write(a,',');
End;
writeln('wcisnij < Enter> , aby kontynuowac...');
readln;
End.
Macie:D To dla leniwych... Działa w 100%
klaudia - Śro Paź 28, 2009 9:48 pm
dzieki za program, jutro sprwdze jak dziala:D
A tak poza tym nie mieliscie czasem wrzucic na forum albo wydrukowac i rozdac typów zmiennych(to mi akurat niepotrzebne) i najczesciej uzywanych procedur w pascalu?? Na cwiczenia by sie przydalo, zeby wszyscy mieli
zanotowane.pldoc.pisz.plpdf.pisz.plalbionteam.htw.pl
zanotowane.pldoc.pisz.plpdf.pisz.plcichooo.htw.pl
|
|
|
|
