20+10 БАЛЛОВ!!!!!!! Составьте процедуру вывода ** экран названия дня недели по его...

Question

20+10 БАЛЛОВ!!!!!!!
Составьте процедуру вывода на экран названия дня недели по его порядковому номеру (1-понедельник, 2-вторник и т.д). С помощью этой процедуры выведите на экран, каким днем недели будет заданное число месяца, если месяц начинается с понедельника.

Comments

Паскаль?

---

да

Answer 1

Procedure week(n:integer);
Begin
Case n of
 1:WriteLn('Понедельник');
 2:WriteLn('Вторник');
 3:WriteLn('Среда');
 4:WriteLn('Четверг');
 5:WriteLn('Пятница');
 6:WriteLn('Суббота');
 7:WriteLn('Воскресенье');
End
End;
Var d:integer;
Begin
Write('d = ');
ReadLn(d);
week((d-1) mod 7+1);
End.

Пример:
d = 14
Воскресенье

Answer 2

Procedure ABC(N:integer);
Begin
Case N of
0:WriteLn('Понедельник');
1:WriteLn('Вторник');
2:WriteLn('Среда');
3:WriteLn('Четверг');
4:WriteLn('Пятница');
5:WriteLn('Суббота');
6:WriteLn('Воскресенье');
End
End;

Var
A:integer;

Begin
WriteLn('Введите число месяца');
ReadLn(A);
ABC((A-1) mod 7);
End.

Comments

Совсем без воскресений живёте? )

---

то есть тут неправильно?

---

Надо было не 1 2 3 4 5 6 7, а 0 1 2 3 4 5 6 ))

---

Хотя не только..

---

Да тут не немного правильно

---

Немного не правильно*

---

Исправил

---

в другом ответе тоже с 1 идет