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

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