Определить день недели по введенному числу месяца

@Am0rz · Регистрация: 18.02.2015

Прощу помощи у программистов )
Задача такая:

Введите с клавиатуры число от 1 до 31 ( день месяца) и рассчитайте, какой это день недели (выведите его название), если известно, что месяц начался со дня недели с заданным номером.

Просьба использовать case of в коде

Заранее благодарен!

@Cyborg Drone · 18.02.2015, 15:38

Pascal

var d, n: integer;
begin
  write('Номер дня недели первого числа месяца (1..7): ');
  readln(d);
  write('День месяца (1..31): ');
  readln(n);
  write('Это ');
  case (n + d - 2) mod 7 of
    0: write('понедельник');
    1: write('вторник');
    2: write('среда');
    3: write('четверг');
    4: write('пятница');
    5: write('суббота');
    6: write('воскресение')
  end;
  readln
end.

@Am0rz 0 / 0 / 0 Регистрация: 18.02.2015 Сообщений: 7
		1
	Определить день недели по введенному числу месяца 18.02.2015, 14:16. Показов 8866. Ответов 1 Метки нет (Все метки) Прощу помощи у программистов ) Задача такая: Введите с клавиатуры число от 1 до 31 ( день месяца) и рассчитайте, какой это день недели (выведите его название), если известно, что месяц начался со дня недели с заданным номером. Просьба использовать case of в коде Заранее благодарен! 0

Опции темы

Определить день недели по введенному числу месяца

Решение