Вводим номер месяца M и дня D. Определить порядковый номер дня в году T соответствующий этой дате

@NikSchibeki · Регистрация: 15.10.2013

Вводим номер месяца M и дня D. Определить порядковый номер дня в году T соответствующий этой дате.
Помогите. Очень нужно

Использовать case

@Puporev · 30.01.2014, 20:11

Не високосный год с case

Pascal

uses crt;
var d,m:integer;
    i,k:longint;
begin
repeat
write('Месяц: ');read(m);
until m in [1..12];
repeat
k:=0;
write('День: ');read(d);
if(d<1)or(d>31) then k:=1;
if(m in [4,6,9,11]) and(d>30)then k:=1;
if (m=2) and(d>28) then k:=1;
until k=0;
case m of
1:k:=d;
2:k:=31+d;
3:k:=59+d;
4:k:=90+d;
5:k:=120+d;
6:k:=151+d;
7:k:=181+d;
8:k:=212+d;
9:k:=243+d;
10:k:=273+d;
11:k:=304+d;
12:k:=334+d;
end;
write('k=',k)
end.

@NikSchibeki · 30.01.2014, 21:37 **[ТС]**

на делфи буду телепортировать. спасибо. Можешь помочь с одним вопросом? программу писать не надо

@Puporev · 31.01.2014, 06:52

Сообщение от NikSchibeki

Можешь помочь с одним вопросом?

Так вопроса не вижу...

@NikSchibeki 12 / 6 / 5 Регистрация: 15.10.2013 Сообщений: 200
		1
	Вводим номер месяца M и дня D. Определить порядковый номер дня в году T соответствующий этой дате 30.01.2014, 19:15. Просмотров 7216. Ответов 3 Метки нет (Все метки) Вводим номер месяца M и дня D. Определить порядковый номер дня в году T соответствующий этой дате. Помогите. Очень нужно Использовать case 0

@NikSchibeki 12 / 6 / 5 Регистрация: 15.10.2013 Сообщений: 200
	30.01.2014, 21:37 [ТС]	3
	на делфи буду телепортировать. спасибо. Можешь помочь с одним вопросом? программу писать не надо 0

@Puporev Модератор 63328 / 47042 / 32425 Регистрация: 18.05.2008 Сообщений: 114,028
	31.01.2014, 06:52	4
	Сообщение от NikSchibeki Можешь помочь с одним вопросом? Так вопроса не вижу... 0

Опции темы

Вводим номер месяца M и дня D. Определить порядковый номер дня в году T соответствующий этой дате

Решение