Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Помогите в pascal
Из 2-ух городов расстояние между которых Sкм выехали одноврем на встречу друг другу 2 авто со скоростями U1 и U2 км/ч. Встретятся ли они через t часов после выезда.
1 | Автор: asdz0r | 2013-11-15, 14:50   |  Репутация: [ + 0 ]
var s, t, v1, v2, vo: integer; 
begin 
read (s);
read (v1, v2);
read (t);
vo:=v1+v2;
if (t=s/vo) or (t>s/vo) then writeln ('yes') else 
if (t<s/vo) then writeln ('no');
end.
2 | Автор: kuzya1323 | 2013-11-16, 17:48   |  Репутация: [ + 0 ]
  • Страница 1 из 1
  • 1
Поиск: