Задание:
Ввести длину пути и время движения двух автобусов. Определить скорость какого автобуса меньше. Подсчитать за какое время он проедет такое же расстояниеесли увеличить его скорость на 10 едениц. Зарание спасибо!
Решение:
Varrast, t, speed: real; beginwrite ('Dlina puti='); readln (rast); write ('Vremya='); readln (t); speed: =rast/t; writeln ('Skorost=', speed: 3:2); t: =rast/ (speed+10); writeln ('Esli skorost na 10 bolshe, to vremya=', t: 3:2); readln; end.
Знаете другой ответ?