| Главная » Статьи » Задачи с acm.timus.ru » Пакет решений на 15.03.08 |
1051
| {A} Var T,M,N: Longint; Begin Readln(M,N); If m>n then begin T:=M; M:=N; N:=T; End; If M=1 then Writeln((N+1) div 2) else If (M mod 3=0) or (N mod 3=0) then Writeln(2) else Writeln(1); end. | |
| Категория: Пакет решений на 15.03.08 | Добавил: solver (15.03.2008) | |
| Просмотров: 796 |