Ĺadny brzuch
Próbuję napisać program w Pascalu który ma wyszukiwać liczby doskonałe z zadanego przedziału (od 1 do n)
Wkurzyłem się bo siedzę nad tym banalnym problemem już 30 minut... i nic! :P
Rzućcie okiem, może Was oświeci ;p
program fdgdf; uses crt; var i,n,z: longint; begin clrscr; j := 0; write('Podaj gorna granice przedzialu: '); readln(n); for z:=1 to n do begin for i:=1 to z div 2 do begin if z mod i = 0 then begin j := j+i; end; if j = z then begin write (z,' '); end end; end; readln; end.
Co robię źle?
Użytkownik KlyYmek edytował ten post 06 grudzień 2007, 20:12
Tak na szybko to przed
for i:=1 to z div 2 do
powinienes zerowac j
Tak na szybko to przed
for i:=1 to z div 2 do
powinienes zerowac j
dzięki to to ;)
Użytkownik KlyYmek edytował ten post 06 grudzień 2007, 21:03
ech przeformatowalem po swojemu i takie cos mi wyszlo:
Powinno byc dobrze.
var i,n,z, j: longint; begin write('Podaj gorna granice przedzialu: '); readln(n); for z :=1 to n do begin j := 0; for i:=1 to z div 2 do if z mod i = 0 then j := j + i; if j = z then write (z,' '); end; readln; end.
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Wkurzyłem się bo siedzę nad tym banalnym problemem już 30 minut... i nic! :P
Rzućcie okiem, może Was oświeci ;p
program fdgdf; uses crt; var i,n,z: longint; begin clrscr; j := 0; write('Podaj gorna granice przedzialu: '); readln(n); for z:=1 to n do begin for i:=1 to z div 2 do begin if z mod i = 0 then begin j := j+i; end; if j = z then begin write (z,' '); end end; end; readln; end.
Co robię źle?
Użytkownik KlyYmek edytował ten post 06 grudzień 2007, 20:12
Tak na szybko to przed
for i:=1 to z div 2 do
powinienes zerowac j
Tak na szybko to przed
for i:=1 to z div 2 do
powinienes zerowac j
dzięki to to ;)
Użytkownik KlyYmek edytował ten post 06 grudzień 2007, 21:03
ech przeformatowalem po swojemu i takie cos mi wyszlo:
Powinno byc dobrze.
var i,n,z, j: longint; begin write('Podaj gorna granice przedzialu: '); readln(n); for z :=1 to n do begin j := 0; for i:=1 to z div 2 do if z mod i = 0 then j := j + i; if j = z then write (z,' '); end; readln; end.