Напишите мне решение задачи на языке Pascal abc(Думаю это на долго). Всем известно, что в 2012 году прошла Летняя Олимпиада в Лондоне, однако не каждый знаком с историей крупнейших спортивных соревнований. Традиция игр зародилась в Древней Греции, но была забыта по завершении античной эпохи и вновь появилась лишь в конце XIX века благодаря французскому общественному деятелю Пьеру де Кубертену.
С 1896 года вновь проводятся летние Олимпийские игры, а с 1924 — зимние, причём оба вида соревнований проходят раз в четыре года. Первое время зимняя и летняя Олимпиады проводились в один и тот же год, но в конце XX века Международный олимпийский комитет принял решение установить между разными видами Игр двухгодичный перерыв. Таким образом, 1992 год был в последний раз отмечен проведением одновременно летних и зимних Олимпийских игр, в 1994 проводились только зимние, в 1996 — летние, и с тех пор они продолжают чередоваться.
Известно также, что в 1916, 1940 и 1944 годах Олимпийские игры были отменены по причине Первой и Второй мировых войн, а в 1906 году проводилась внеочередная Олимпиада.
Требуется написать программу, которая по заданному году определит, проводились ли в этом году Олимпийские игры и были ли они летними или зимними.
Входные данные
На вход программе подаётся одно натуральное число N (1800 ≤ N ≤ 2014) — номер года.
Выходные данные
Выведите «winter», если в этом году была проведена только зимняя Олимпиада, «summer», если только летняя, «winter summer», если прошли обе олимпиады, и «nothing», если в этот год олимпийских игр не проводилось.
Примеры тестов
Входные данные
1896
Выходные данные
summer
Входные данные
1924
Выходные данные
winter summer

25 Сен 2019 в 06:43
293 +1
0
Ответы
1

program Olympics;
var
N: integer;
begin
readln(N);

if (N = 1916) or (N = 1940) or (N = 1944) then
writeln('nothing')
else if (N >= 1896) and (N mod 4 = 0) and ((N mod 100 <> 0) or (N mod 400 = 0)) then
begin
if N = 1906 then
writeln('summer')
else if (N = 1992) or (N mod 8 = 4) then
writeln('winter summer')
else if N mod 8 = 0 then
writeln('winter')
else
writeln('summer');
end
else
writeln('nothing');
end.

19 Апр в 19:36
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Название заказа не должно быть пустым
Введите email
Бесплатные доработки
Гарантированные бесплатные доработки
Быстрое выполнение
Быстрое выполнение от 2 часов
Проверка работы
Проверка работы на плагиат
Интересные статьи из справочника
Поможем написать учебную работу
Название заказа не должно быть пустым
Введите email
Доверьте свою работу экспертам
Разместите заказ
Наша система отправит ваш заказ на оценку 91 696 авторам
Первые отклики появятся уже в течение 10 минут
Прямой эфир