igorich1376

AFunc1

Nov 22nd, 2024
87
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.26 KB | None | 0 0
  1. ##
  2. function SumRange(a,b: integer): integer;
  3. begin
  4.  for var i := a to b do Result += i
  5. end;
  6.  
  7. var (a1,b1) := readinteger2;
  8. var (a2,b2) := readinteger2;
  9. var (a3,b3) := readinteger2;
  10. println(SumRange(a1,b1));
  11. println(SumRange(a2,b2));
  12. println(SumRange(a3,b3));
Advertisement
Add Comment
Please, Sign In to add comment