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

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

Храбрых Лидия 2019-09-25 23:33:50

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.

Артем Батхон 2019-09-25 23:36:57

Это что?

Тоха Фагелов 2019-09-25 23:43:39

Прошедший мой вопрос?

Виолетта Мурару 2019-09-25 23:48:09

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

Элина Сашникова 2019-09-25 23:52:48

Спасибо огромное, но я теснее сделала это

Jelina Svishhenko 2019-09-25 23:57:49

Окей