Question

Задача с лифтом! Язык программирования (PascalABCNET)
Катя зашла в подъезд 1 этаж живёт на n этаже помогите Кате как можно быстрее добраться до своего этажа. введи время за какое время лифт передвигается по этажам и за какое время Катя поднимается на 1 этаж и на каком этаже находится лифт!

Answer 1

var tl, tp, l, p: real;

     el, n: integer;

begin

print('Время, за которое лифт передвигается на 1 этаж');

readln(l);

print('Этаж, на котором находится лифт');

readln(el);

print('Время, за которое Катя поднимается на 1 этаж');

readln(p);

print('Нужный этаж');

readln(n);

tp := (n - 1) * p;

tl := (el + n - 2) * l;

println('Время на лифте:', tl);

println('Время по лестнице:', tp);

if tp > tl then

println('На лифте быстрее')

else

 if tp < tl then

 println('По лестнице быстрее')

 else

 println('Нет разницы');

end.