Підготовка до олімпіади з програмування (задача про купе)

У плацкартному вагоні 54 місця, які розташовані в дев’яти купе. Місця від 1 до 36 основні і вони розташовані по чотири в купе (1 – 4 у першому, …, 33 – 36 у дев’ятому), від 37 до 54 – бічні, розбиті по два, але розташування по купе зворотне: місця 37 , 38 знаходяться в дев’ятому купе, 39 і 40 у восьмому, …, 53 і 54 у Першому. За номером місця визначте номер купе.

program l1; 
var a,res:integer; 
begin 
readln(a); {читаєм місце} 
if (a>=1) and (a<=36) {якщо місце основне} 
then 
begin 
res:= a div 4 + 1;
if a mod 4 = 0 then 
Dec(res);
end; 
if (a>=37) and (a<=54) 
then 
res:=(54-a) div 2 + 1; 
write(res); 
end.

Comments

comments