15 lines
308 B
Plaintext
15 lines
308 B
Plaintext
puts(1,"<table border=2>\n")
|
|
puts(1," <tr><th></th>")
|
|
for j=1 to 3 do
|
|
printf(1,"<th>%s</th>",'W'+j)
|
|
end for
|
|
puts(1,"</tr>\n")
|
|
for i=1 to 3 do
|
|
printf(1," <tr><td>%d</td>",i)
|
|
for j=1 to 3 do
|
|
printf(1,"<td>%d</td>",rand(10000))
|
|
end for
|
|
puts(1,"</tr>\n")
|
|
end for
|
|
puts(1,"</table>")
|