Input/Output for pairs of numbers: Difference between revisions
Content added Content deleted
(Added Lua version) |
(Added FreeBASIC) |
||
Line 177: | Line 177: | ||
end program</lang> |
end program</lang> |
||
=={{header|FreeBASIC}}== |
|||
<lang freebasic>' FB 1.05.0 Win64 |
|||
Dim As UInteger n |
|||
Dim As Integer x, y |
|||
Input "", n |
|||
Dim sums(1 To n) As Integer |
|||
For i As Integer = 1 To n |
|||
Input "", x, y |
|||
sums(i) = x + y |
|||
Next |
|||
Print |
|||
For i As Integer = 1 To n |
|||
Print Str(sums(i)) |
|||
Next |
|||
Sleep</lang> |
|||
{{out}} |
|||
<pre> |
|||
5 |
|||
1 2 |
|||
10 20 |
|||
-3 5 |
|||
100 2 |
|||
5 5 |
|||
3 |
|||
30 |
|||
2 |
|||
102 |
|||
10 |
|||
</pre> |
|||
=={{header|Haskell}}== |
=={{header|Haskell}}== |