[Ксюха]

проверила.кое что доделала получилось

Код:

uses crt;
Const
 //h = 500;
// m = 65;
 g = 9.8;
 dt = 0.1;
Var
 ti, xi, ai, ui,k2,k1: Real;
   m,h:integer;
begin
clrscr;
write ('vvedite m=');
 readln (m);
 write('vvedite h=');
 readln (h);
     ti:= 0; xi:= 0; ai:= g; ui:= 0;
 Repeat
  ti:= ti + dt;
  xi:= xi + ui*ti + (ai*ti*ti)/2;
  ui:= ui + ai*dt;
  ai:=(m*g - k1*ui - k2*ui*ui)/2;
 Until xi >= h;
  writeln('k2 =',k2);
   readln;
  end.

Админ: Не забываем про теги для оформления кода.

но он не считает к2