Submission #55182176
Source Code Expand
Copy
Module mainModuleSub Main()Dim line1 As String = Console.ReadLine()Dim line2 As String = Console.ReadLine()Dim line3 As String = Console.ReadLine()Dim separator = New Char() { " "c }Dim bc = line2.Split(separator)Dim a As Integer = Integer.parse(line1)Dim b As Integer = Integer.parse(bc(0))Dim c As Integer = Integer.parse(bc(1))Console.WriteLine("{0} {1}", a + b + c, line3)End SubEnd Module
Module mainModule
Sub Main()
Dim line1 As String = Console.ReadLine()
Dim line2 As String = Console.ReadLine()
Dim line3 As String = Console.ReadLine()
Dim separator = New Char() { " "c }
Dim bc = line2.Split(separator)
Dim a As Integer = Integer.parse(line1)
Dim b As Integer = Integer.parse(bc(0))
Dim c As Integer = Integer.parse(bc(1))
Console.WriteLine("{0} {1}", a + b + c, line3)
End Sub
End Module
Submission Info
| Submission Time | |
|---|---|
| Task | PracticeA - Welcome to AtCoder |
| User | mikecat |
| Language | Visual Basic 16.9 (.NET 7.0.7) |
| Score | 100 |
| Code Size | 499 Byte |
| Status | AC |
| Exec Time | 40 ms |
| Memory | 24648 KB |
Judge Result
| Set Name | All | ||
|---|---|---|---|
| Score / Max Score | 100 / 100 | ||
| Status |
|
| Set Name | Test Cases |
|---|---|
| All | 00_rnd_01.txt, 00_rnd_02.txt, 00_rnd_03.txt, 00_rnd_04.txt, 00_rnd_05.txt, 00_sample_1.txt, 00_sample_2.txt |
| Case Name | Status | Exec Time | Memory |
|---|---|---|---|
| 00_rnd_01.txt | AC | 39 ms | 24528 KB |
| 00_rnd_02.txt | AC | 39 ms | 24648 KB |
| 00_rnd_03.txt | AC | 34 ms | 24648 KB |
| 00_rnd_04.txt | AC | 40 ms | 24480 KB |
| 00_rnd_05.txt | AC | 38 ms | 24628 KB |
| 00_sample_1.txt | AC | 40 ms | 24400 KB |
| 00_sample_2.txt | AC | 39 ms | 24532 KB |