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

Обсуждение задачи 1224. Спираль

what is WA 6 my solition is here
Послано zzzlll 11 янв 2007 12:21
var
s,n,m,y:extended;
begin
readln(n,m);
if m<n then begin
 if m=1 then writeln('1')
  else begin
  s:=3;
  y:=0;
  if m<>2 then
  repeat
  y:=y+1;
  m:=m-1;
  until m<=2;
writeln(s+(y*2):0:0);
 end;
 end
else if (n=m) or (m>n) then begin
  if n=2 then writeln('2')
  else if n=1 then writeln('1')
   else begin
  s:=1;
  repeat
  s:=s+1;
  n:=n-1;
  until n<=2;
writeln(2*s:0:0);
  end;
end;
end.