МБ
Мусульманин Бакылы
Как составить программу на Паскале?
Даны два числа D – день и М - месяц. Определить К - порядковый номер того дня високосного года, который имеет дату D и M. Помогите составить программу на Паскале
Даны два числа D – день и М - месяц. Определить К - порядковый номер того дня високосного года, который имеет дату D и M. Помогите составить программу на Паскале
days = (31,0,31,30,31,30, 31, 31, 30, 31, 30, 31 );
t = 0
for i := 1 to d do if (i = 2) then begin if (leap( year )) t += 29 else t += 28; end else t += days[ i ];
t += m
Теперь в Т - нужное число