Определить день недели по введенному дню

30.11.2012, 00:33. **Показов** 4389. **Ответов** 1

1 мая 2006 года – это день недели понедельник. Вводится любая дата месяца май. Определить день недели. (Использовать оператор Case).Опишите основные шаги плз

@Mawrat · 30.11.2012, 17:42

Дни недели повторяются с периодичностью в 7 дней. Поэтому, зная каким днём недели является первый день месяца, можно определить день недели на любое число этого месяца - с помощью определения остатка от деления на 7:

Pascal

var
  d : Integer;
  s : String;
begin
  repeat
    Write('Задайте число месяца: ');
    Readln(d);
    case d mod 7 of
      1 : Writeln('Это понедельник.');
      2 : Writeln('Это вторник.');
      3 : Writeln('Это среда.');
      4 : Writeln('Это четверг.');
      5 : Writeln('Это пятница.');
      6 : Writeln('Это суббота.');
      0 : Writeln('Это воскресенье.');
    end;
 
    Writeln('Повторить - Enter, выход - любой символ + Enter.');
    Readln(s);
  until S <> '';
end.

lemi
		1
	Определить день недели по введенному дню 30.11.2012, 00:33. Показов 4389. Ответов 1 Метки нет (Все метки) 1 мая 2006 года – это день недели понедельник. Вводится любая дата месяца май. Определить день недели. (Использовать оператор Case).Опишите основные шаги плз

Опции темы

Определить день недели по введенному дню

Решение