Решения задач acmp.ru
Главная
Вход
Регистрация
Воскресенье, 27.09.2020, 13:09Приветствую Вас Гость | RSS
Меню сайта

Категории раздела
Pascal [121]
C++ [76]

Поиск

Мини-чат
200

Легкий заработок!

Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

Форма входа

Главная » Файлы » Pascal

0550 День программиста

Скачать файл можно после просмотра рекламы:

04.06.2012, 17:42
var n:longint;
    s:string;
begin
    
    assign(input,'INPUT.TXT');
    reset(input);
    assign(output,'OUTPUT.TXT');
    rewrite(output);
 
    read(n);
    str(n,s);
    while length(s)<4 do s:='0'+s;
    if ((n mod 4=0)and(n mod 100<>0))or(n mod 400=0) then write('12/09/',s) else write('13/09/',s);
 
end. 
Категория: Pascal | Добавил: shum
Просмотров: 4066 | Загрузок: 0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Это интересно!


Copyright MyCorp © 2020