|
zadach545.PAS |
|
{* Задача 545 *}Unit ZADACH545; InterfaceImplementationBegin writeln( 'От станции до озера S км. Туристы, направляясь от станции к озеру, полтора часа шли пешком со скоростью А км, а затем сели на попутную машину, которая ехала со скоростью В км/ч. За какое время туристы добрались до озера?'); End. Program zadach545;
Uses zadach545.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* Объявление переменных *}
s : real;
a : real;
b : real;
t : real;
Begin
clrscr; {* Очистка экрана *}
write( 's=');
read(s);
write( 'a, b=');
read(a, b);
t := 1.5 + (s - 1.5 * a) / b;
write(t : 2:3, ' з б.');
readkey; {* Ждем нажатия любой клавиши *}
End.
|