Помогите написать программу вычисления на языке Delphi

[Айва_си]

Помогите написать программу вычисления на языке Delphi

Дано целое число k (1<=k<=365).Присвоить целочисленной величине n значение 1,2,...,6 или 0 в зависимости от того,на какой день недели(понедельник,вторник,...,субботу или воскресенье) приходится k-й день года,в котором 1 января:
а)понедельник
б)вторник
в)*d-й день недели (если 1 января-понедельник,то d=1,если вторник -d =2,...,если воскресенье d=7).

[mod2]А вот кросспостинг (размещение дублей сообщений в разных разделах) у нас Правилами запрещен и наказуем. Попрошу больше так не делать.
Дубликат темы удален.

Модератор[/mod2]

 

[Rossomaxa]

Находите остаток от деления k на 7, прибавляете d-1, вот и все. 0-воскресенье, 1 -пн...6 - суббота. там же простой код

 

[interacia]

Program For1;
var
D,K,Otvet:integer;
begin
Write('Введите целое число K (1<=k<=365) =');
readln(K);
Write('Введите целое число D=');
readln(D);
Otvet:=((((K mod 7)+D-1)-1) mod 7)+1 ;
Writeln('Otvet=',Otvet);
end.

Формула не столь очевидна.