Betmen23
03.08.2021 00:44

Дано целое число k (1 ≤ k ≤ 365). присвоить целочисленной величине n значе- ние 1, 2, 6 или 0 в зависимости от того, на какой день недели (понедельник, вторник, субботу или воскресенье) приходится k-й день года, в котором 1 января: а)понедельник. б)вторник. язык програмирования : pascal.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
аишамамедова
09.10.2020 06:57

A)

program dengoda1;

var k, n:Integer;

begin

ReadLn(k);

n:=(k mod 7);

WriteLn(n)

end.



Б)

program dengoda2;

var k, n:Integer;

begin

ReadLn(k);

n:=(k mod 7)+1;

if (n=7)then

n:=0;

WriteLn(n)

end.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота