Сегодня в индийском городке
Старый Гоа отмечают День святого Франциска Ксавьера. Святой Франциск Ксавьер –
миссионер, член ордена иезуитов, считается величайшим католическим миссионером
Нового времени.

Мощи святого Франциска Ксавьера
– духовного покровителя индийских христиан – покоятся в Старом Гоа в известном
католическом храме – Базилике Бом Иисус. Со дня постройки храма в 1605 году раз
в десять лет мощи святого выставляются для всеобщего обозрения.

Индийский крестьянин Вирмарам –
человек очень набожный, он не упускал случая коснуться святых мощей. Зная годы
его жизни, определите, сколько раз он мог коснуться святых мощей (считается,
что в год своего рождения он не мог этого сделать, а в год смерти – мог).

Входные данные

Вводятся два натуральных числа
– год рождения и год смерти. Числа разделены пробелом.

Выходные данные

Программа должна определить,
сколько раз крестьянин мог коснуться святых мощей, и вывести ответ - одно
число.




Примеры Входной
файл. Input.txt



Выходной файл. Output.txt




1610-1640


=3




1615-1645
=


3




1515-1545


=0




1

Ответы и объяснения

Лучший Ответ!
2013-10-31T12:26:27+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.
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.
если помогла, то выбери мое решение лучшим плиз