Question

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

Answer 1

олимпиада, олимпиада

Answer 2

Вот решение задачи на языке Pascal abc, которое определяет, проводились ли Олимпийские игры в заданный год и какие именно:

pascalCopy code
program OlympicGames;

var
  year: Integer;

begin
  { Введите номер года }
  Write('Введите номер года: ');
  ReadLn(year);

  if (year mod 4 = 0) then
  begin
    { Если год делится на 4, то возможны Олимпийские игры }

    { Проверим, не был ли год исключением }
    if (year = 1916) or (year = 1940) or (year = 1944) then
      WriteLn('nothing') { Олимпийские игры были отменены }
    else if year = 1906 then
      WriteLn('summer') { Олимпиада была внеочередной и была летней }
    else
    begin
      { Определим летние или зимние Олимпийские игры }

      if (year >= 1896) and (year < 1994) then
      begin
        if year mod 2 = 0 then
          WriteLn('winter') { Зимние Олимпийские игры }
        else
          WriteLn('summer'); { Летние Олимпийские игры }
      end
      else if (year >= 1994) and (year <= 2014) then
      begin
        if year mod 4 = 0 then
          WriteLn('winter summer') { Обе Олимпиады, так как вводится 4-х летний цикл }
        else
          WriteLn('summer'); { Летние Олимпийские игры }
      end
      else
        WriteLn('nothing'); { Олимпийские игры не проводились }
    end;
  end
  else
    WriteLn('nothing'); { Олимпийские игры не проводились }
end.

Программа просит пользователя ввести номер года и выводит соответствующий результат: "winter" для зимних Олимпийских игр, "summer" для летних Олимпийских игр, "winter summer" для обоих типов Олимпиад, и "nothing" в случае, если в этот год Олимпийские игры не проводились.