ПОЖАЛУЙСТА,Напишите задачу на паскале Календарь жителей племени Чунга состоит из N месяцев, каждый месяц состоит ровно из 30 дней, неделя состоит из 7 дней. Особо несчастливым считается 13-е число месяца, если оно выпадает на п...
ПОЖАЛУЙСТА,Напишите задачу на паскале
Календарь жителей племени Чунга состоит из N месяцев, каждый месяц состоит ровно из 30 дней, неделя состоит из 7 дней. Особо несчастливым считается 13-е число месяца, если оно выпадает на пятницу.
Известно,что текущий год начался в k-й по счету день недели (1-й день недели - понедельник, 2-й - вторник, 3-й - среда, ..., 7-й - воскресенье). Определите, сколкько в этом году в племени Чунга будет особо несчатливых пятниц.
Вводные данные
Первая строка входного файла содержит натуральное число N (N<=10в девятой степени) - оличество месяцев в календаре племени Чунга, вторая - номер дня недели k (от 1 до 7),
на который приходиться первое число первого месяца нового (текузего) года
Выходные данные
Единственная строка выходного файла должна содержать число несчастливых пятниц в этом году.
Гость
Ответ(ы) на вопрос:
Гостьта вообще легко оказалась. ну в файлики сами напишите если реально надо
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.
Не нашли ответ?
Похожие вопросы