igorich1376

AFunc2

Nov 22nd, 2024
86
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.27 KB | None | 0 0
  1. ##
  2. function SumAl(n: integer): integer;
  3. begin
  4.   var mass := new integer[n];
  5.   for var i := 0 to mass.Length - 1 do
  6.     mass[i] := i * 2 + 1;
  7.   Result := mass.Sum;
  8. end;
  9.  
  10. var (n1, n2, n3) := readinteger3;
  11.  
  12. println(SumAl(n1));
  13. println(SumAl(n2));
  14. println(SumAl(n3));
Advertisement
Add Comment
Please, Sign In to add comment