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

Обсуждение задачи 1319. Отель

WA 4 Help!!
Послано Alexandr-pro 8 окт 2013 06:52
var
   i,j,n:word;
   a:array[1..100] of word;
begin
     readln(n);
     a[1]:=1;
     for i:=2 to n do
         a[i]:=a[i-1]+i-1;

     for j:=n downto 1 do
         begin
              for i:=n downto 1 do
                  write(a[i]:3);
              for i:=1 to n-1 do
                  a[i]:=a[i+1]+1;
              a[n]:=a[n]+j;
              writeln;
          end;
end.