Составьте программу, которая, учитывая наименование года и день недели соответствующий 1 января, выводит на экран наименования месяцев в которых число 13 выпадет на пятницу (программа pascal abc) надо, не понимаю как составить(

254

362

Посмотреть ответы 2

Ответы на вопрос:

trollolo740

Информатика

4,6(43 оценок)

//можно и без дня недели пятницы //pascalabc.net 3.2 сборка 1318 //pascalabc вариант var year,yearcode: integer; begin readln(year); case(year div 100 mod 4) of 0: yearcode: =6; 1: yearcode: =4; 2: yearcode: =2; 3: yearcode: =0; end; yearcode: =(yearcode+year mod 100+ year mod 100 div 4) mod 7; if year mod 4< > 0 then begin if (13+1+yearcode) mod 7=6 then writeln('январь'); end else if (13+1+yearcode) mod 7=0 then writeln('январь'); if year mod 4< > 0 then begin if (13+4+yearcode) mod 7=6 then writeln('февраль'); end else if (13+4+yearcode) mod 7=0 then writeln('февраль'); if (13+1+yearcode) mod 7=6 then writeln('октябрь'); if (13+2+yearcode) mod 7=6 then writeln('май'); if (13+3+yearcode) mod 7=6 then writeln('август'); if (13+4+yearcode) mod 7=6 then writeln('март'); if (13+4+yearcode) mod 7=6 then writeln('ноябрь'); if (13+5+yearcode) mod 7=6 then writeln('июнь'); if (13+6+yearcode) mod 7=6 then writeln('декабрь'); if (13+6+yearcode) mod 7=6 then writeln('сентябрь'); if (13+0+yearcode) mod 7=6 then writeln('апрель'); if (13+0+yearcode) mod 7=6 then writeln('июль'); end. //.net вариант uses system; const day=13; n=12; var year,i: integer; ars: array[1..n] of string: =('январь','февраль','март','апрель','май','июнь','июль','август','сентябрь','октябрь','ноябрь','декабрь'); ard: array[1..n] of datetime; begin readln(year); for i: =1 to n do begin ard[i]: =ard[i].adddays(day-1); ard[i]: =ard[i].addmonths(i-1); ard[i]: =ard[i].addyears(year-1); if ard[i].dayofweek.tostring='friday' then writeln(ars[i]); end; end. пример ввода: 2016 пример вывода: май

Lisgg123434

Информатика

4,6(25 оценок)

Пляшит как камень вот и весь ответ

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.