Imports System
Public Class Test
Public Shared Sub Main()
Dim cont1, cont2, media, n, soma, maior As Integer
n = console.readline
cont1 = 1
If n > 175 then
cont2 = cont2 + 1
Else
cont2 = 0
maior = n
soma = n
While cont1 < 10
n = console.readline
cont1 = cont1 + 1
soma = soma + n
If n > maior then
n = maior
End if
If n > 175 then
cont2 = cont2 + 1
End if
Loop
Console.writeline("O maior mede "&maior)
Console.writeline("Com altura superior a 175 cm existem "&cont2&"pessoas")
media = soma / cont1
Console.writeline("A média de alturas é de "&media)
End Sub
End Class
SW1wb3J0cyBTeXN0ZW0KClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkgCgkJRGltIGNvbnQxLCBjb250MiwgbWVkaWEsIG4sIHNvbWEsIG1haW9yIEFzIEludGVnZXIKCQluID0gY29uc29sZS5yZWFkbGluZQoJCWNvbnQxID0gMQoJCUlmIG4gPiAxNzUgdGhlbgoJCQljb250MiA9IGNvbnQyICsgMQoJCUVsc2UKCQkJY29udDIgPSAwCgkJbWFpb3IgPSBuCgkJc29tYSA9IG4KCQlXaGlsZSBjb250MSA8IDEwCgkJCW4gPSBjb25zb2xlLnJlYWRsaW5lCgkJCWNvbnQxID0gY29udDEgKyAxCgkJCXNvbWEgPSBzb21hICsgbgoJCQlJZiBuID4gbWFpb3IgdGhlbgoJCQkJbiA9IG1haW9yCgkJCUVuZCBpZgoJCQlJZiBuID4gMTc1IHRoZW4KCQkJCWNvbnQyID0gY29udDIgKyAxCgkJCUVuZCBpZgoJCUxvb3AKCQlDb25zb2xlLndyaXRlbGluZSgiTyBtYWlvciBtZWRlICImbWFpb3IpCgkJQ29uc29sZS53cml0ZWxpbmUoIkNvbSBhbHR1cmEgc3VwZXJpb3IgYSAxNzUgY20gZXhpc3RlbSAiJmNvbnQyJiJwZXNzb2FzIikKCQltZWRpYSA9IHNvbWEgLyBjb250MQoJCUNvbnNvbGUud3JpdGVsaW5lKCJBIG3DqWRpYSBkZSBhbHR1cmFzIMOpIGRlICImbWVkaWEpCglFbmQgU3ViCkVuZCBDbGFzcw==
Visual Basic.Net Compiler version 0.0.0.5914 (Mono 2.4.2 - r)
Copyright (C) 2004-2008 Rolf Bjarne Kvinge. All rights reserved.
/home/hczSRF/prog.vb (25,1) : Error VBNC90019: Expected 'End'.
Error recovery not implemented yet.
/home/hczSRF/prog.vb (25,1) : Error VBNC90019: Expected 'End'.
/home/hczSRF/prog.vb (25,1) : Error VBNC90019: Expected 'End'.
Error recovery not implemented yet.
/home/hczSRF/prog.vb (25,1) : Error VBNC30205: Expected end of statement.
Error recovery not implemented yet.
/home/hczSRF/prog.vb (25,1) : Error VBNC90019: Expected 'End'.
Error recovery not implemented yet.
/home/hczSRF/prog.vb (25,1) : Error VBNC30205: Expected end of statement.
Error recovery not implemented yet.
/home/hczSRF/prog.vb (25,1) : Error VBNC30203: Not valid as identifier.
/home/hczSRF/prog.vb (25,10) : Error VBNC30203: Not valid as identifier.
/home/hczSRF/prog.vb (26,10) : Error VBNC30203: Not valid as identifier.
/home/hczSRF/prog.vb (27,8) : Error VBNC30203: Not valid as identifier.
/home/hczSRF/prog.vb (28,10) : Error VBNC30203: Not valid as identifier.
/home/hczSRF/prog.vb (29,9) : Error VBNC30203: Not valid as identifier.
/home/hczSRF/prog.vb (30,10) : Error VBNC30203: Not valid as identifier.
There were 13 errors and 0 warnings.
Compilation took 00:00:00.6214950