Ответ:
//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию
uses System.Linq;
begin
writeln('III');
var a := ReadArrInteger('Документы', ReadInteger('n=')).ToList;
writeln;
while a.Any() do
begin
write(a[0], ' ');
a.RemoveAt(0);
if not a.Any then break;
write(a.Last, ' ');
a.RemoveAt(a.Count - 1);
if not a.Any then break;
var n := 0;
if a.Count > 1 then n := a.Count div 2 - 1;
write(a[n], ' ');
a.RemoveAt(n);
end;
end.
Объяснение:
Из формулы перемещения
h=( v^2 - v0^2 ) / 2g. ( h -перемещение ( высота) . v0-начальная скорость=0, v -скорость в момент удара о землю, g -ускорение свободного падения. ) выразим скорость.
v=корень квадратный из 2*g*h.
v=кор. кв. из 2*20*10=20м/c.
Var H,s,p,x,z:real;
begin
readln(H,s,p);
p:=s/100;
p:=p*15;
z:=H*s+p;
writeln(z);
<span>end.</span>
<em>var a:integer; </em>
<em>begin </em>
<em>writeln('Введите целое число'); </em>
<em>read(a); </em>
<em>if ((a mod 10) mod 2=1) then writeln('Последняя цифра числа - нечетная.') </em>
<em>else writeln('Последняя цифра чиста - четная.'); </em>
<em>end.</em><span><em> </em></span>