Imports System
Public Class Test
Public Shared Sub Main()
dim x,y,q,N as integer
console.writeline("Введите число(n>7)")
n=console.readline
if n mod 5<>0 and n mod 3<>0 then
console.whriteline("Целых значений нет")
if n mod 5 = 0 then
y=n\5
x=0
console.writeline("x=" & x & "y=" & y)
if n mod 3 = 0 then
x=n\3
y=0
console.writeline("x=" & x & "y=" & y)
console.readkey
End Sub
End Class
SW1wb3J0cyBTeXN0ZW0KClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKCQlkaW0geCx5LHEsTiBhcyBpbnRlZ2VyCgkJY29uc29sZS53cml0ZWxpbmUoItCS0LLQtdC00LjRgtC1INGH0LjRgdC70L4obj43KSIpCgkgICAgbj1jb25zb2xlLnJlYWRsaW5lCgkJaWYgbiBtb2QgNTw+MCBhbmQgbiBtb2QgMzw+MCB0aGVuCgkJY29uc29sZS53aHJpdGVsaW5lKCLQptC10LvRi9GFINC30L3QsNGH0LXQvdC40Lkg0L3QtdGCIikKCQlpZiBuIG1vZCA1ID0gMCB0aGVuCgkJeT1uXDUKCQl4PTAKCQljb25zb2xlLndyaXRlbGluZSgieD0iICYgeCAmICJ5PSIgJiB5KQoJCWlmIG4gbW9kIDMgPSAwIHRoZW4KCQl4PW5cMwoJCXk9MAoJCWNvbnNvbGUud3JpdGVsaW5lKCJ4PSIgJiB4ICYgInk9IiAmIHkpCgkJY29uc29sZS5yZWFka2V5CglFbmQgU3ViCkVuZCBDbGFzcw==
Visual Basic.Net Compiler version 0.0.0.5943 (Mono 4.0.1 - tarball)
Copyright (C) 2004-2010 Rolf Bjarne Kvinge. All rights reserved.
/home/T2MBcq/prog.vb (19,9) : error VBNC90019: Expected 'If'.
/home/T2MBcq/prog.vb (19,9) : error VBNC90019: Expected 'End'.
/home/T2MBcq/prog.vb (19,9) : error VBNC90019: Expected 'End'.
/home/T2MBcq/prog.vb (19,9) : error VBNC90019: Expected 'End'.
There were 4 errors and 0 warnings.
Compilation took 00:00:00.9292980