Написать программу: вводят скорость первого автомобиля v1 км/ч, второго - v2 км/ч, расстояние между ними s км. Найти и вывести какое расстояние будет между ними через t ч, если автомобили сразу движутся в разные стороны? Согласно условию задачи искомое расстояние s1=s + (v1+v2) t (если автомобили изначально двигались в противоположные стороны).

Question

Информатика

Цвета

30 июня, 20:08

Написать программу: вводят скорость первого автомобиля v1 км/ч, второго - v2 км/ч, расстояние между ними s км. Найти и вывести какое расстояние будет между ними через t ч, если автомобили сразу движутся в разные стороны? Согласно условию задачи искомое расстояние s1=s + (v1+v2) t (если автомобили изначально двигались в противоположные стороны).

+4

Ответы (1)

Знаете ответ?

Федул · Answer 1

Var

v1, v2, s, t, s1: integer;

begin

write ('Введите v1, v2, s, t') ;

readln (v1, v2, s, t) ;

s1:=s+t * (v1+v2) ;

write ('Расстояние между автомобилями = ', s1) ;

end.