Сегодня в индийском городке Старый Гоа отмечают День святого Франциска Ксавьера. Святой...

0 голосов
155 просмотров

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

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

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

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

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

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

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




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



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




1610-1640


=3




1615-1645
=


3




1515-1545


=0





Информатика (17 баллов) | 155 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

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.

(53.1k баллов)
0

если помогла, то выбери мое решение лучшим плиз