Определить номер недели с начала года по введенной дате

@D1986 · Регистрация: 19.12.2014

Не знаю как решить, контрольную надо сдавать а у меня времени реально нет, учил сколько мог паскаль. Буду признателен если ктонибудь мне поможет
Определить номер недели с начала года по введенной дате, считая, что первая неделя начинается 1 января. Например
, 1 февраля – 5 неделя.

@Joy · 20.01.2015, 07:20

Pascal

var
  d,m,n,i,w:integer;
begin
  write('Введите день:');readln(d);
  write('Введите месяц:');readln(m);
  n:=d;
  for i:=1 to m-1 do
    case i of
      1,3,5,7,8,10: n:=n+31;
      2: n:=n+28;
      else n:=n+30;
    end;
  w:=n div 7;
   if n mod 7<>0 then w:=w+1;
    writeln(w,' неделя');readln;
end.

@D1986 · 20.01.2015, 07:45 **[ТС]**

Спасибо

@D1986 0 / 0 / 0 Регистрация: 19.12.2014 Сообщений: 11
		1
	Определить номер недели с начала года по введенной дате 18.01.2015, 19:47. Просмотров 1513. Ответов 2 Метки нет (Все метки) Не знаю как решить, контрольную надо сдавать а у меня времени реально нет, учил сколько мог паскаль. Буду признателен если ктонибудь мне поможет Определить номер недели с начала года по введенной дате, считая, что первая неделя начинается 1 января. Например , 1 февраля – 5 неделя. 0

@D1986 0 / 0 / 0 Регистрация: 19.12.2014 Сообщений: 11
	20.01.2015, 07:45 [ТС]	3
	Спасибо 0

Опции темы

Определить номер недели с начала года по введенной дате

Решение