"тело брошено вертикально вверх с высоты н0,с начал скоростью v0,определить место положения и скорость тела в заданное время" написать программу для решения этой

272

443

Посмотреть ответы 2

Ответы на вопрос:

visokon1111

Информатика

4,5(97 оценок)

Uses crt; var h0,v0,g,v1: integer; h,t1,t,h1,v: real; begin readln(t); readln(h0); readln(v0); g: =10; if (h0+v0*t-g*t*t/2< 0) then begin t1: =v0/g; t: =t-t1; h1: =h0+v0*t1-g*t1*t1/2; h: =h1+g*t*t/2; v: =g*t; end else begin h: =h0+v0*t-g*t*t/2; v: =v0-g*t; end; writeln; writeln(h); writeln(v); end.

diana1156

Информатика

4,5(25 оценок)

1) s=2 n=2 s: =2+4=6 2) s=6 n=3 s: =6+6=12 3) s=12 n=4 s=12+8=20 4) s=20 n=5 s=20+10=30 при каждом шаге будем получать видим закономерность 2*3_3*4_4*5_5* var s,s1,n: integer; begin writeln('старый код'); s : = 2; for n : = 2 to 5 do begin write('s= ',s); s : = s + n*2; write(' n= ',n); writeln(' s= ',s); end; writeln; writeln('новый код'); for n: =2 to 5 do begin s: =n*(n+1); write('n= ',n); writeln(' s= ',s); end; end.