На Паскале помогите написатьДано целое число k (1

На Паскале помогите написатьДано целое число k (1 <= k <= 365). Присвоить целочисленной величине n значение 1,2,… ,6 или 0 в зависимости от того, на какой день недели (понедельник, вторник,… , субботу или воскресенье) приходится k-й день года, в котором 1 января: а) понедельник б) вторник в) d-й день недели (если 1 января-понедельник, то d=1, если вторник -d=2,… , если воскресенье d=7).

в избранное

profitlife

11 августа 2022

A) var k,n: integer; beginread (k); if k div 7=k/7 then n: =7 elseif k+1 div 7=k+1/7 then n: =6 elseif k+2 div 7=k+2/7 then n: =5 elseif k+3 div 7=k+3/7 then n: =4 elseif k+4 div 7=k+4/7 then n: =3 elseif k+5 div 7=k+5/7 then n: =2 elseif k+6 div 7=k+6/7 then n: =1; writeln (n); end. Б) var k,n: integer; beginread (k); if k-1 div 7=k-1/7 then n: =7 elseif k div 7=k/7 then n: =6 elseif k+1 div 7=k+1/7 then n: =5 elseif k+2 div 7=k+2/7 then n: =4 elseif k+3 div 7=k+3/7 then n: =3 elseif k+4 div 7=k+4/7 then n: =2 elseif k+5 div 7=k+5/7 then n: =1; writeln (n); end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?