НА ПИТОНЕ Ух ты, вы на финшиной прямой! Не волнуйтесь, последние задания будут не очень сложными.

Работа с датами и часовыми поясами — всегда очень большая проблема в программировании.

Вот и перед вами встала следующая задача: пользователь вводит год, программа должна определить, является ли он високосным.

Високосные года - те, которые делятся на 4 без остатка. Но при этом года, которые делятся без остатка на 100, но не делятся на 400, не являются високосными.

Необходимо написать функцию, которая возвращает True, если год високосный и False, если нет

В нижеприведённой таблице строчные буквы упорядочены в порядке возрастания их юникодовских номеров (за исключением Ё, поставленной на своём алфавитном месте, и украинской Ґ, перемещённой в конец блока дополнительных знаков для современных славянских языков). Прописные буквы стоят непосредственно перед соответствующими строчными буквами.

Колонка «КР» означает «каноническое разложение» — если ячейка в этом столбце не пуста, то символ можно представить в виде сочетания базового символа и диакритического знака.

Колонка «ВЮ» означает версию Юникода, в которой впервые появился данный символ (самой ранней версией считается 1.1, а не 1

Английские названия символов, написанные заглавными буквами (колонка «название») являются частью стандарта Юникода. Названия на других языках, включая русский и прочие языки на кириллической основе, в стандарте Юникода не прописаны. При этом для многих символов официальных названий на русском языке нет, а некоторые другие символы имеют разные названия в разных кириллических языках (например, «Ъ» в русском алфавите называется «Твёрдый знак», в церковнославянском — «Еръ», а в болгарском — «Ер голям»).

Всего в таблицу включено 429 символов.

1)

var

  str : string;

begin

  readln (str);

  writeln (length (str) - pos (':', str));

end.

 

2)

var

  str, s : string;

  count, i : integer;

begin

  readln (str);

  s := copy (s, pos ('(', str) + 1, pos (')', str) - pos ('(', str) - 1);

  count := 0;

  for i := 1 to length (s) do

    if s[i] = ' ' then inc (count);

  writeln (count + 1);

end.

 

3)

var

  str : string;

  count : integer;

begin

  readln (str);

  count := 0;

  while pos (',', str) > 0 do

  begin

    inc (count);

    delete (str, pos (',', str), 1);

  end;

  writeln (str);

  writeln (count);

end.

 

Сделано без проверки на соответствие условию.