Дано целое число k (1 k 365). Присвоить целочисленной

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

Задать свой вопрос
1 ответ

program week;

var k,n: integer;

begin

   writeln ('Input k (1lt;=klt;=365) : ');

   readln (k);

   if (k mod 7=0) then n:=0

   else n:=k mod 7;

   writeln ('n= ',n);

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт