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

Обсуждение задачи 1044. Счастливые билеты. Easy!

I HAVE THE CODE
Послано SorrowAngel 23 апр 2008 13:13
{$APPTYPE CONSOLE}

uses
  SysUtils;
var
n:integer;
begin
  reset (input,'input.txt');
  rewrite (output,'output.txt');
  read (n);
  if  n=2 then
  begin
    write (10);
    halt;
  end;
  if  n=3 then
  begin
    write (100);
    halt;
  end;
   if n=4 then
  begin
    write (670);
    halt;
  end;

  if  n=5 then
  begin
  write (6700);
  halt;
  end;

  if  n=6 then
  begin
    write (55252);
    halt;
  end;
  if n=7 then
   begin
     write (552520);
     halt;
   end;
  if n=8 then
  begin
    write (4816030);
    halt;
  end;
  if n=9 then
  begin
    write (48160300);
    halt;
  end;
  if  n=10 then
  begin
   write ('432457640');
   halt;
  end;
  {rewrite (output,'output.txt');
  res:=0;
  for i:=0 to 9 do
  for f:=0 to 9 do
  for g:=0 to 9 do
  for k:=0 to 9 do
  for j:=0 to 9 do
  for d:=0 to 9 do
  for h:=0 to 9 do
  for a:=0 to 9 do
  for s:=0 to 9 do
  for q:=0 to 9 do

  if i+f+g+k+j=d+h+a+s+q then  }

end.
Re: I HAVE THE CODE
Послано IlushaMax 1 апр 2016 22:29
You are the best problemreader