Question

Сегодня в индийском городке Старый Гоа отмечают День святого Франциска Ксавьера. Святой Франциск Ксавьер – миссионер, член ордена иезуитов, считается величайшим католическим миссионером Нового времени. Мощи святого Франциска Ксавьера – духовного покровителя индийских христиан – покоятся в Старом Гоа в известном католическом храме – Базилике Бом Иисус. Со дня постройки храма в 1605 году раз в десять лет мощи святого выставляются для всеобщего обозрения. Индийский крестьянин Вирмарам – человек очень набожный, он не упускал случая коснуться святых мощей. Зная годы его жизни, определите, сколько раз он мог коснуться святых мощей (считается, что в год своего рождения он не мог этого сделать, а в год смерти – мог). Входные данные Вводятся два натуральных числа – год рождения и год смерти. Числа разделены пробелом. Выходные данные Программа должна определить, сколько раз крестьянин мог коснуться святых мощей, и вывести ответ - одно число. Примеры Входной файл. Input.txt Выходной файл. Output.txt 1610-1640 =3 1615-1645 = 3 1515-1545 =0

Answer 1

Var i, byear, eyear, k : integer;
Begin
  read(byear, eyear);
  byear := byear + 1;

  for i := byear to eyear do
    if (i >= 1605) and ((i - 1605) mod 10 = 0) then k:= k +1;
    
  writeln(k);
End.