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

Обсуждение задачи 1873. Летопись GOV

Ответ для Pascal
Послано Maxim Popkov 28 окт 2019 15:01
var
a:integer;
begin
read(a);
if a=0 then write(5);
if a=1 then write(21);
if a=2 then write(12);
if a=3 then write(2);
if a=4 then write(1);
if a=5 then write(4);
if a=6 then write(6);
if a=7 then write(1);
if a=8 then write(4);
if a=9 then write(4);
if a=10 then write(1);
if a=11 then write(0);
if a=12 then write(1);
if a=13 then write(1);
end.

Edited by author 28.10.2019 15:01