Hogyan kell barátságos számokat keresni free pascal-ban?
Figyelt kérdés
idái jutottam el, és nem tudom, hol rontom el:
Program baratsagos;
Uses crt;
Var i,j,y:word;
szam1,szam2:word;
Begin
Szam1:=0;
Szam2:=0;
For i:=1 to 10000 do
for j:=1 to i div 2 do
Begin
If i mod j = 0 then
szam1:= szam1+j;
for y:=1 to szam1 div 2 do
if szam1 mod y =0 then
Szam2:=szam2+y;
If i = szam2 then Writeln(i,' ',szam2);
End;
End.
2020. febr. 24. 15:23
11/13 A kérdező kommentje:
Köszönöm a Válaszokat.
Nem néztem eddig, mert elfelejtettem
2020. márc. 18. 12:31
12/13 tabaki válasza:
Na hiszen. De legalább újra felbukkantál, nem úgy, mint némelyek.
Viszonzásul egy kód, amely a te módszereddel keres (+függvények, dinamikus tömb):
13/13 A kérdező kommentje:
köszönöm
2020. ápr. 5. 22:19
Kapcsolódó kérdések:
Minden jog fenntartva © 2025, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu
A weboldalon megjelenő anyagok nem minősülnek szerkesztői tartalomnak, előzetes ellenőrzésen nem esnek át, az üzemeltető véleményét nem tükrözik.
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!