Напишите мне решение задачи на языке 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
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.
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.