"Γράψτε ένα πρόγραμμα το οποίο βρίσκει όλα τα ζεύγη από διαφορετικούς
θετικούς ακέραιους αριθμούς στο διάστημα 2 έως 20 που είναι “πρώτοι προς
αλλήλους” (έτσι ονομάζονται κάποιοι αριθμοί όταν ο μόνος αριθμός που
τους διαιρεί ταυτόχρονα είναι η μονάδα). Αν το πρόγραμμα δίνει το ζεύγος
(n,m), δεν θα πρέπει να δίνει και το ζεύγος (m,n)."
Προσπάθεια: (τα πολλά σχόλια τα γράφω γιατί μας τα ζητάει ο καθηγητής, το ξέρω
πως είναι λίγο κουραστικό, αλλά αν μη τι άλλο, αν έχω πολλά λάθη να καταλαβαίνετε
τι θέλω να κάνω και αν γενικά είμαι στο θέμα της άσκησης).
- Μορφοποιημένος Κώδικας: Επιλογή όλων
-
program ex6
implicit none
integer i,j,counter
! Sta zeugaria pou prepei na tipwsw oi arithmoi prepei na ine 1oi metaksi tous.
! p.x sto zeugari (4,7) oi arithmoi einai 1oi metaksi tous, ara prepei na tous
! tipwsw, omws den einai k oi 2 prwtoi. gia na vgalw to zeugari (7,4) arkei o
! eswterikos vrogxos na ksekinaei apo ton metriti tou ekswterikou vrogxou +1
! gia na exw diaforetikous arithmous k o 2os na einai megaliteros apo ton prwto.
- Μορφοποιημένος Κώδικας: Επιλογή όλων
-
do i=2,20
counter=0
do j=i+1,20
if ((mod(i,j).eq.0).and.(i/j.ne.0).or.(i/j.ne.1)) then
counter=counter+1
end if
end do
if (counter.eq.0) then
write(*,*)'(',i,',',j,')'
end if
end do
end
! Otan to ipoloipo den isoutai me 0, kai otan i diairesi i/j isoutai me 0 i 1,
! tote einai prwtoi pros allilous.
! |
Μήνυμα συντονισμού πρός τον/την Σε παρακαλούμε να διαβάσεις τις οδηγίες προς νεοεισερχόμενους προσεκτικά. Όλες οι δημοσιεύσεις πρέπει να είναι σε λιτά πεζά ελληνικά, δηλ. όχι greeklish (εκτός αν δεν λειτουργούν τα ελληνικά), όχι κεφαλαία (φαίνεται ότι φωνάζεις), όχι ξένη γλώσσα (εκτός αν υπάρχει ανάγκη), όχι χωρίς λόγο πολλά χρώματα, bold, κλπ. Για αυτούς τους λόγους, κάνε τις απαραίτητες αλλαγές στην δημοσίευση σου. |
