Submission #1117379
Source Code Expand
Module Module1 Sub Main() Dim N As Long Dim M As Long Dim sLine As String sLine = Console.ReadLine() Dim sSplitLine() As String sSplitLine = Split(sLine, " ") N = CLng(sSplitLine(0)) M = CLng(sSplitLine(1)) Dim nAnswer As Long If N > Int(M / 2) Then nAnswer = CLng(M / 2) Else nAnswer = N + CLng((M - 2 * N) / 4) End If Console.WriteLine(nAnswer) End Sub End Module
Submission Info
Submission Time | |
---|---|
Task | A - Restaurant |
User | lofelonglearning |
Language | Visual Basic (Mono 4.0.1) |
Score | 0 |
Code Size | 541 Byte |
Status | RE |
Exec Time | 27 ms |
Memory | 13024 KB |
Judge Result
Set Name | Sample | All | ||||
---|---|---|---|---|---|---|
Score / Max Score | 0 / 0 | 0 / 100 | ||||
Status |
|
|
Set Name | Test Cases |
---|---|
Sample | 00_example_01.txt, 00_example_02.txt |
All | 00_example_01.txt, 00_example_02.txt, 01.txt, 02.txt, 03.txt, 04.txt, 05.txt, 06.txt |
Case Name | Status | Exec Time | Memory |
---|---|---|---|
00_example_01.txt | RE | 26 ms | 9056 KB |
00_example_02.txt | RE | 27 ms | 11104 KB |
01.txt | RE | 26 ms | 10976 KB |
02.txt | RE | 27 ms | 10976 KB |
03.txt | RE | 27 ms | 11104 KB |
04.txt | RE | 27 ms | 10976 KB |
05.txt | RE | 27 ms | 13024 KB |
06.txt | RE | 27 ms | 10976 KB |