Цикл с заранее известным числом повторений

@yoimelv · Регистрация: 16.01.2019

Студворк — интернет-сервис помощи студентам

Помогите, пожалуйста, написать программу, решающую следующую задачу: дано натуральное число m <= 7. Считая, что 1-е января считается
m-м по счету днем недели и что год не является високосным, определить, в
скольких месяцах года количество понедельников больше количества воскресеньев. С использование цикла с заранее известным числом повторений

@JuriiMW · 16.01.2019, 06:04

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
begin
  var вМесяцеДней:=arr(31,28,31,30,31,30,31,31,30,31,30,31);
  var(день,месяц,понедельников,воскресений,результат):=(1,0,0,0,0);
  var m:=ReadInteger;
  loop 365 do begin
    case m of
      1:понедельников+=1;
      7:воскресений+=1;
    end;
    m:=m mod 7+1;
    if день=вМесяцеДней[месяц] then begin
      результат+=понедельников>воскресений?1:0;
      месяц+=1;(день,понедельников,воскресений):=(1,0,0);end
    else день+=1;
  end;
  результат.PrintLn;
end.

Добавлено через 1 минуту
Для проверки:
текущий год (2019) начинается во вторник — вводим 2
таких месяцев 2 — результат работы программы тоже 2

@yoimelv · 16.01.2019, 08:45 **[ТС]**

Этот вариант решения, скопированный из ответов mail.ru мне не подходит

@JuriiMW · 16.01.2019, 09:14

Что значит „скопирован“?
Я его автор!

Сообщение от yoimelv

мне не подходит

А что же, в таком случае, вам нужно?

@yoimelv · 16.01.2019, 09:37 **[ТС]**

Мне нужна программа, которая была бы написана на школьном уровне. С использованием цикла с заранее известным числом повторений. Без использования loop и тому подобного. Такую задачу никто не примет.

@Puporev · 16.01.2019, 09:41

yoimelv, Не знаете авс.net, боитесь халявного кода в нем, создавайте темы в разделе Паскаль АВС(без .net)

@JuriiMW · 16.01.2019, 09:42

Сообщение от yoimelv

на школьном уровне

Ну и где здесь не школьный уровень?

Сообщение от yoimelv

Без использования loop и тому подобного

А чем вас не устраивает loop?
Куда ещё более с заранее известным числом повторений?
Замените его на любой другой с заранее известным числом повторений, который хотите!

@yoimelv · 16.01.2019, 09:42 **[ТС]**

Хорошо, спасибо за наводку

@JuriiMW · 16.01.2019, 09:43

Сообщение от yoimelv

Такую задачу никто не примет.

Про „не примет“…

Новые блоги и статьи Все статьи Все блоги /
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Символьное дифференцирование igorrr37 13.02.2026 / * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .

@yoimelv 0 / 0 / 0 Регистрация: 16.01.2019 Сообщений: 12

	Цикл с заранее известным числом повторений 16.01.2019, 00:38. Показов 1809. Ответов 8 Метки паскаль abc.net, цикл (Все метки) Помогите, пожалуйста, написать программу, решающую следующую задачу: дано натуральное число m <= 7. Считая, что 1-е января считается m-м по счету днем недели и что год не является високосным, определить, в скольких месяцах года количество понедельников больше количества воскресеньев. С использование цикла с заранее известным числом повторений 0

@yoimelv 0 / 0 / 0 Регистрация: 16.01.2019 Сообщений: 12
	16.01.2019, 08:45 [ТС]
	Этот вариант решения, скопированный из ответов mail.ru мне не подходит 0

@yoimelv 0 / 0 / 0 Регистрация: 16.01.2019 Сообщений: 12
	16.01.2019, 09:37 [ТС]
	Мне нужна программа, которая была бы написана на школьном уровне. С использованием цикла с заранее известным числом повторений. Без использования loop и тому подобного. Такую задачу никто не примет. 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	16.01.2019, 09:41
	yoimelv, Не знаете авс.net, боитесь халявного кода в нем, создавайте темы в разделе Паскаль АВС(без .net) 0

@yoimelv 0 / 0 / 0 Регистрация: 16.01.2019 Сообщений: 12
	16.01.2019, 09:42 [ТС]
	Хорошо, спасибо за наводку 0