Pozdrav.
Dobio sam zadatak na faksu napraviti mali programčić. Nikada nisam ništa u životu programirao, kao većina nas, pa su nam rekli da potražimo kod nekog pomoć.
Jedan kolega mi je nešto napisao, ali program ne obavlja ono što bi trebao. Bio bih jako zahvalan nekome kad bi mi netko objasnio o čemu se radi.
Uglavnom, ovo je zadatak:
Napisati program koji u unosu prima cijeli pozitivni troznamenkasti broj. Program treba ispisati sve djeljitelje unesenog broja u rastućem redoslijedu (od najmanjeg prema najvećem)
Unos i ispis možete prilagoditi i uljepšati prema izboru, dani primjeri samo pokazuju funkcionalnost programa.
Primjer:
unos: 100
ispis: 1 2 4 5 10 20 25 50 100
Primjer:
unos: 999
ispis: 1 3 9 27 37 111 333 999.
Napisan kod mi trenutno izgleda ovako:
program djeljivost
integer m, A(100)
open (5, file='ulaz.txt')
open (6, file='izlaz.txt')
read (5,*) m
j=0
do 10 i=1,n
if (m/m/2*2.eq.m) then
j=j+1
A(j)=m
endif
10 continue
write (6,100) (A(j), j=1,n)
100 format (150I4)
close (5)
close (6)
end
Program u datoteku izlaz.txt izbacuje ovo
************ 32 32**** 0 0 0 0 0 0 0 0 0 0 0************************************
neovisno o tome koji troznamenkasti broj upišem u ulaz.txt
Nemam dovoljno znanja pa ne znam o čemu se radi.
Hvala unaprijed na pomoći.