Напишите на паскале календарь жителей племени чунга состоит из n месяцев, каждый месяц состоит ровно из 30 дней, неделя состоит из 7 дней. особо несчастливым считается 13-е число месяца, если оно выпадает на пятницу. известно,что текущий год начался в k-й по счету день недели (1-й день недели - понедельник, 2-й - вторник, 3-й - среда, 7-й - воскресенье). определите, сколкько в этом году в племени чунга будет особо несчатливых пятниц. вводные данные первая строка входного файла содержит натуральное число n (n< =10в девятой степени) - оличество месяцев в календаре племени чунга, вторая - номер дня недели k (от 1 до 7), на который приходиться первое число первого месяца нового (текузего) года выходные данные единственная строка выходного файла должна содержать число несчастливых пятниц в этом году.

fhuffggergryth5h6 fhuffggergryth5h6    1   09.08.2019 16:10    6

Ответы
СОНИЧКААА041 СОНИЧКААА041  04.10.2020 07:37
Та вообще легко оказалась. ну в файлики сами напишите если реально надо

var
    n, k, d, count: integer;

begin
    readln(n, k);
    count := 0;
    for d := 1 to 30 * n do
        if (d mod 30 = 13) and ((d + k - 1) mod 7 = 5) then
            count := count + 1;
    writeln(count);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика