Розв'язуємо задачі

Задачі на листопад:
Задача Forecast. Василько та Юлія грають в таку гру. Спочатку кожен записує на папері свій прогноз – число від 1 до 6. Потім вони кидають гральний кубик з числами від 1 до 6 на гранях. Чий прогноз виявляється ближчим до того числа, що випало, той і переміг. Треба написати програму для визначення переможця. 
Технічні умови. Програма Forecast читає з пристрою стандартного введення три числа через пропуски (пробіли) – прогноз Василька, Юлі та результат кидання кубика. Програма виводить “V”, якщо переміг Василько, “J” якщо Юлія або ”D” – якщо прогноз обох однаково близький до результату (тобто переможця виявити неможливо.

Приклади
Введення Виведення
3 4 5                  J
1 6 2                  V
4 4 3                 D


Задача Calendar. Зустріч друзів відбувається кожного тижня в один і той самий день. Допоможіть друзям скласти календар зустрічей до кінця року - визначте дати усіх зустрічей та їх кількість, починаючи з першої і до кінця року.

Технічні умови. Програма Calendar читає із стандартного введення два числа - номер місяця і номер дня місяця, коли відбувається перша зустріч. Номер місяця може бути одним з чотирьох можливих чисел - 9, 10, 11, 12. Номер дня місяця - число від 1 до 30 для місяців з номерами 9 і 11 або від 1 до 31 для місяців з номерами 10 і 12.Прграма виводить на пристрій стандартного виведення кількість зустрічей та дати усіх зустрічей до кінця року в хронологічному порядку, по одній даті в рядку, першим місяць, потім день місяця, через пропуск. Заняття проходять кожного тижня, в той же день тижня, що і перша зустріч. Остання зустріч може проходити у будь-який день грудня, в тому числі і 31 числа.

Приклад
Введення 11 20
Виведення 11 20 11 27 12 4 12 11 12 18 12 25


Задачі на жовтень:

Задача Сircle
Василько взяв великого циркуля та зайшов до кімнати, підлога якої являє собою квадрат зі стороною рівною M(M>1м). Поставивши циркуль на перетині діагоналей цього квадрата він почав будувати кола. Перше коло мало діаметр 10 см., друге – 30, трете – 40, четверте – 60, п’яте – 70, шосте – 90 см. і т.д. Скільки повних кіл може побудувати в цій кімнаті Василько?
Технічні умови. Програма зчитує з клавіатури ціле число M – довжину стіни кімнати в сантиметрах. Програма виводить на екран одне ціле число – кількість повних кіл, які можна тут побудувати.
Приклад.
Введення 240
Виведення  16

Введення  380
Виведення  25

До обговорення пропонується такий розв'язок:
Program Circle;
Var d, m,i,l : integer;
Begin
Read( m );
d:=10; i:=0; l:=20;
While d<=m do
Begin
If d<>l
then i:=i+1
else l:=l+30;
d:=d+10;
end;
Write( i );
end.