Версия для печати темы

Автор: _SOAD_ 21.05.2006 22:15

Дано целое число k (1<=k<=365).Определить каким днём недели будет k-ый день года, если 1 января понедельник.

Автор: zZz 21.05.2006 22:41

да вы смеётесь...

найдите (K mod 7), значение этого выражения есть ответ, где 0-воскр,1-понед, и т.д.

Автор: _SOAD_ 22.05.2006 0:25

А можно поподробней завтра сдавать училки иначе будет очень плохо

Автор: Zxzc 22.05.2006 1:32

Подробнее??!!
Куда подробнее? Разве только mod - это взятие остатка от деления...

Автор: zZz 22.05.2006 1:51

А еще лучше возьмите учебник, почитайте... полезно... 2 получите - тоже полезно - хорошо мозги прочищает...

Автор: klem4 22.05.2006 22:51

Флейм удален, гость, еще раз такое повторится, будешь наказан, читай правила форума.

Автор: n4oJllI 22.05.2006 23:10

program day;
uses crt;
const
  week: array[1..7] of string[10] = ('Monday','Tuesday','Wensday','Thursday','friday','satuday','sunday');

var
  n,d:integer;

begin         clrscr    ;
write('nr ?? ');  readln(n);
d:=(n mod 7);
if d<>0 then writeln(week[d])
else writeln(week[7]);
readln;
end.