Решите задачу pascal

Question

Решите задачу pascal

паркар пикаков Мастер (1177), на голосовании 3 дня назад

РЕШИТЬ ЗАДАЧУ ЯЗЫКОМ ПРОГРАММИРОВАНИЯ Pascal Из города а в город б вышел пешеход со ск 3км в ч, а из б в а выехал велосипедист со скоростью в 4 раза больше. Вывести на экран построен сколько проехал велосипедист и расстояние от города а до города б, если пешеход и велосипедист встретились через 5часоу 30минут

Answer 1

 program DistanceCalculation; 
 
var 
  speedWalker, speedBiker, time: real; 
  distanceWalker, distanceBiker, totalDistance: real; 
 
begin 
  { Задаем данные } 
  speedWalker := 3; { скорость пешехода, км/ч } 
  speedBiker := speedWalker * 4; { скорость велосипедиста, км/ч } 
  time := 5.5; { время до встречи, часы } 
 
  { Вычисляем расстояния } 
  distanceWalker := speedWalker * time; { расстояние, пройденное пешеходом } 
  distanceBiker := speedBiker * time; { расстояние, пройденное велосипедистом } 
  totalDistance := distanceWalker + distanceBiker; { общее расстояние } 
 
  { Вывод результатов } 
  writeln('Расстояние, пройденное велосипедистом: ', distanceBiker:0:2, ' км'); 
  writeln('Расстояние между городами: ', totalDistance:0:2, ' км'); 
end.