paschalism

ergasia 4.3

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