var sum : int
var numans : int := 1
var letters : array 1 .. 26 of string :=
init ("P", "T", "Q", "C", "G", "E", "Y", "I", "O", "U", "S", "S", "L", "I", "N", "J", "T", "R", "Q", "M", "A", "S", "E", "D", "L", "R")
var numbers : array 1 .. 26 of int :=
init (39, 40, 16, 17, 24, 40, 17, 17, 23, 24, 24, 24, 39, 23, 40, 24, 23, 39, 17, 23, 16, 16, 23, 24, 17, 39)
var answers : array 1 .. 24, 1 .. 3 of int
for first : 1 .. 24
for second : 2 .. 25
for third : 3 .. 26
sum := numbers (first) + numbers (second) + numbers (third)
if sum = 100 then
answers (numans, 1) := first
answers (numans, 2) := second
answers (numans, 3) := third
numans += 1
end if
sum := 0
end for
end for
end for
put "Answers:"
put ""
put ""
for : 1 .. numans
put answers (numans, 1), ",", answers (numans, 2), ",", answers (numans, 3)
end for
|