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