1. Информатика
  2. Написать программу в free pascal

Написать программу в free pascal'e,! условие: пусть k - целое от 1 до 365. присвоить целой переменной n значение 1, 2, 6 или 7 в зависимости от того, на какой день недели (понедельник, вторник, субботу или воскресенье) приходится k-й день не високосного года, в котором 1 января - понедельник.

lunenko2005 lunenko2005    1   26.08.2019 02:50    3

Ответы
Надежда777333 Надежда777333  05.10.2020 20:07
Var k,n:integer;
begin
write('k = ');
readln(k);
n:=(k-1) mod 7+1;
writeln('n = ',n);
end.

Пример:
k = 21
n = 7
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
alena5378 alena5378  19.05.2020 14:33
Тестирование по теме «Мультимедиа и компьютерные презентации» (7 класс) 1. Виды компьютерных презентаций (выберите несколько ва¬риантов ответа): А. Показательные презентации...
alicebro1 alicebro1  19.05.2020 14:32
Задание 3Хоровод1. ЕСЛИ в слове больше 3 гласных, то запишите его наоборотИНАЧЕ удалите первую букву2. Поделите слово пополам и половинки поменяйте местами3. В конец слова...
valeriybalybin valeriybalybin  17.06.2019 04:40
Допишите недостающие слова: образные (рисунки, фотографии и др.) представляют собой образы обьектов, зафиксированные на каком-либо информации (бумаге, фотографии, киноплёнке...
doc2510 doc2510  17.06.2019 04:40
Выберите,что не является важным ресурсом компьютера? центральный процессор оперативная память внешняя память монитор...
pipidon17 pipidon17  17.06.2019 04:40
Подставте одну букву к слову песок чтобы получилось новое слово...
regina290402 regina290402  17.06.2019 04:40
30 ! ! в программе описан двумерный массив a следующим образом const n=5; m=6; type arr=array[1..n,1..m] of integer; var a: arr; определить, как изменится в программе массив...
Feraaa2108 Feraaa2108  17.06.2019 04:40
Алгоритм учитель проверяет тетради...
lara1906 lara1906  19.08.2019 11:10
Рассчитайте объем видеопамяти необходимый для хранения 1024 768...
Kiralex71 Kiralex71  19.08.2019 11:10
1)составьте программу вычисления произведения p=1*3**23 2)задан масив a[1..5]. составьте программу которая выводит на экран элменты массива в обратном порядкее...
grbennikovigor grbennikovigor  19.08.2019 11:10
Решить данное . если можно, то с объяснением. вычислите значение суммы 101₂+ 11₈ + 10₁₆. результат представьте в виде десятичного числа. вычислите значение разности двух чисел...

Популярные вопросы