Информатика Архивный вопрос

Нужна программа на паскале для вычисления скорости свободного подения

1 комментария:
gt^2/2?

Ответы

Гость

Const Shag = 0.5;      
Vrem = 10;
Var t : real;
Function Vpad (t : real) : real;
Begin  
Vpad:=(9.8)*t End;
BEGIN    
t:=0;  
 repeat      
writeln(Vpad(t) :10:10);      
t:=t+shag    
until t > vrem
END.

Нет комментариев

Похожие вопросы