paschalism

ergasia 4.1 B

Oct 24th, 2023 (edited)
1,157
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ΑΛΓΟΡΙΘΜΟΣ 4.1.Β
  2.  
  3. ΔΕΔΟΜΕΝΑ
  4. X,Y,N: INTEGER;
  5.  
  6. ΑΡΧΗ
  7.     ΕΠΑΝΑΛΑΒΕ
  8.         ΤΥΠΩΣΕ ("ΔΩΣΕ ΤΟ N: ");
  9.         ΔΙΑΒΑΣΕ (N);
  10.     ΜΕΧΡΙ (N>2)
  11.    
  12.     Y:=0;
  13.     ΓΙΑ X:=3 ΕΩΣ N ΕΠΑΝΑΛΑΒΕ
  14.         Υ:=1/(X*X)+Υ;
  15.     ΓΙΑ-ΤΕΛΟΣ
  16.  
  17.     ΤΥΠΩΣΕ ("ΤΟ ΑΘΡΟΙΣΜΑ ΕΙΝΑΙ: ", Y);
  18. ΤΕΛΟΣ
Advertisement