С клавиатуры вводиться два числа-текущая дата, например 17 3 (17 марта) 1)Вычислить...

Question

С клавиатуры вводиться два числа-текущая дата, например 17 3 (17 марта) 1)Вычислить сколько полных недель прошло с Нового года2) Определить какой это день недели (например 16 января, 16,1 прошло 2 недели с Нового года, 2 день недели) СРОЧНО НУЖНО ​

Comments

program raf105;var a,b:integer;begin write('Введите текущую дату (День и месяц) через пробел: '); readln(a,b); a:= a+(b-1)*30; b:= a div 7; writeln('С нового года прошло ',a,' дн. или ',b,' нед.'); a:= a-b*7; writeln('Сегодня ',a,' день недели');end.

---

Это что?

---

Прошлый мой вопрос?

---

Да, это ответ на вопрос выше

---

Спасибо большое, но я уже сделала это

---

Окей

Answer 1

1)10 полных недель

2)если это 17 марта,то день недели воскресенье

Comments

нужно программу составить на паскале)