• Дано целое число k. Определите, каким будет k-й день года: выходным (суббота и воскресенье) или будним (понедельник, вторник, среда, четверг, пятница), если 1 января — понедельник ( На паскале)

Ответы 1

  • Program D;Var  k,n: integer;Begin repeat write('Введите номер дня: '); readln(k);until (1<=k) and (k<365);n:=k mod 7;Case n of  1..5: Writeln('Рабочий день');  6,0: Writeln('Выходной день');end;End.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years