Question

Помогите на паскале решить

Answer 1

Ответ:

program Street;

var

 A, B, H: Integer;

begin

 Write ('Введите номер дома A: ');

 ReadLn (A);

 Write ('Введите номер дома B: ');

 ReadLn (B);

 if A mod 2 = 0 then  // переводим А к нечетному дому

   Dec (A);

 if B mod 2 = 0 then  // переводим В к нечетному дому

   Dec (B);

 H := Abs ((B - A) div 2); // время - разность номеров домов деленная на два. абсолютное значение: чтобы дома можно было вводить в любом порядке

 WriteLn ('Длительность: ', H, ' мин.');

 ReadLn;

end.