нужна программа на паскале для вычисления скорости свободного подения
Ответы на вопрос
Ответил asdkl
0
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.
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.
Новые вопросы