PASCAL. Поезд, двигаясь равномерно со скоростью 55 км/ч, проезжает мимо придорожного...

Question

PASCAL. Поезд, двигаясь равномерно со скоростью 55 км/ч, проезжает мимо придорожного столба за 20 секунд. Длина поезда больше 200 метров? (задание решить в Pascal'е, кодом). Спасибо!

Answer 1

program poezd;

var

s, v, vm, t : real;

begin  

WriteLn('Введите скорость поезда(км/ч)');

read(v);

writeln('Введите время(в секундах)');

read(t);

vm := v * 1000 / 3600;  //переводим км/ч в м/с

S := vm * t;

if S > 200 then

begin

writeln('Да, больше.');

end;

if S < 200 then

begin

writeln('Нет, меньше.');

end;

end.