ОЧЕНЬ ПРОШУ!!!задачка про пятницу 13 - Паскаль, Turbo Pascal, PascalABC.NET

benzus · 02.06.2008, 18:53

Вычислить кол-во пятниц 13 приходящихся на XX столтетие, используя перечисляемые (и) или ограниченные типы

knight · 04.06.2008, 13:48

Перечисляемый тип
type
{месяцы}
months=('январь', 'февраль','март', <- дописать -> ,'декабрь');
{дни недели]
days=('понедельник','вторник', <- дописать -> ,'воскресенье');
Ограниченный тип
const
month1 = 30;
month2 = 31;
type
{кол-во дней в месяце}
days_months1 = 0 .. month1;
days_months2 = 0 .. month2;

benzus · 04.06.2008, 15:45

А кто может написать ВСЮ программу,и с учетом ВИСОКОСНОГО года???

02.06.2008, 18:53	#1
benzus Пользователь Регистрация: 24.04.2008 Сообщений: 13	ОЧЕНЬ ПРОШУ!!!задачка про пятницу 13 Вычислить кол-во пятниц 13 приходящихся на XX столтетие, используя перечисляемые (и) или ограниченные типы

04.06.2008, 15:45	#3
benzus Пользователь Регистрация: 24.04.2008 Сообщений: 13	да уж,,,,, А кто может написать ВСЮ программу,и с учетом ВИСОКОСНОГО года???

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
ПОМОГИТЕ, ОЧЕНЬ ПРОШУ	Help me	Свободное общение	4	01.09.2008 09:29
Очень прошу помочь! Таблица с раширением TBL	Миха	БД в Delphi	13	29.06.2007 09:46

04.06.2008, 13:48	#2
knight Дон Кихот Форумчанин Регистрация: 17.01.2008 Сообщений: 130	Перечисляемый тип type {месяцы} months=('январь', 'февраль','март', <- дописать -> ,'декабрь'); {дни недели] days=('понедельник','вторник', <- дописать -> ,'воскресенье'); Ограниченный тип const month1 = 30; month2 = 31; type {кол-во дней в месяце} days_months1 = 0 .. month1; days_months2 = 0 .. month2;