Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ΑΛΓΟΡΙΘΜΟΣ 4.1.Β
- ΔΕΔΟΜΕΝΑ
- X,Y,N: INTEGER;
- ΑΡΧΗ
- ΕΠΑΝΑΛΑΒΕ
- ΤΥΠΩΣΕ ("ΔΩΣΕ ΤΟ N: ");
- ΔΙΑΒΑΣΕ (N);
- ΜΕΧΡΙ (N>2)
- Y:=0;
- ΓΙΑ X:=3 ΕΩΣ N ΕΠΑΝΑΛΑΒΕ
- Υ:=1/(X*X)+Υ;
- ΓΙΑ-ΤΕΛΟΣ
- ΤΥΠΩΣΕ ("ΤΟ ΑΘΡΟΙΣΜΑ ΕΙΝΑΙ: ", Y);
- ΤΕΛΟΣ
Advertisement