ENG  RUSTimus Online Judge
Online Judge
Задачи
Авторы
Соревнования
О системе
Часто задаваемые вопросы
Новости сайта
Форум
Ссылки
Архив задач
Отправить на проверку
Состояние проверки
Руководство
Регистрация
Исправить данные
Рейтинг авторов
Текущее соревнование
Расписание
Прошедшие соревнования
Правила
вернуться в форум

Обсуждение задачи 1051. Простая игра на сетке

whi i get WA end please tell me how i mast do it and i will tell you senc your?here is a my program
Послано I am david. Tabo. 22 апр 2002 17:47
var m,n,sol:longint;
begin
  readln (m,n);
  if m=1 then
    sol:=(n+1) div 2
  else
    if (m mod 3=0)or(n mod 3=0) then
      sol:=2
    else
      sol:=1;
  writeln (sol);
end.
You must replace m and n if m>n. OK?
Послано meoden 23 апр 2002 19:00
> var m,n,sol:longint;
  var tg:longint;
> begin
>   readln (m,n);
   if m>n then
   begin
      tg:=m;
      m:=n;
      n:=tg;
   end;
>   if m=1 then
>     sol:=(n+1) div 2
>   else
>     if (m mod 3=0)or(n mod 3=0) then
>       sol:=2
>     else
>       sol:=1;
>   writeln (sol);
> end.
>
>
senk ypur a got ACCCCCCCC!!!!!!!
Послано I am david. Tabo. 23 апр 2002 19:37
> > var m,n,sol:longint;
>   var tg:longint;
> > begin
> >   readln (m,n);
>    if m>n then
>    begin
>       tg:=m;
>       m:=n;
>       n:=tg;
>    end;
> >   if m=1 then
> >     sol:=(n+1) div 2
> >   else
> >     if (m mod 3=0)or(n mod 3=0) then
> >       sol:=2
> >     else
> >       sol:=1;
> >   writeln (sol);
> > end.
> >
> >
Re: senk ypur a got ACCCCCCCC!!!!!!!
Послано Acid Pea 13 дек 2002 19:08
 var m,n,sol:longint;
 var tg:longint;
begin
   readln (m,n);
  if m>n then
    begin
       tg:=m;
       m:=n;
     n:=tg;
  end;
   if m=1 then
     sol:=(n+1) div 2
   else
     if (m mod 3=0)or(n mod 3=0) then
      sol:=2
   else
      sol:=1;
 writeln (sol);
 end.

Re: senk ypur a got ACCCCCCCC!!!!!!!
Послано SM 22 дек 2006 10:32
but why?can anyone tell me?