Ответ:
1
Объяснение:
Объяснения не просили, я и не буду писать.
Формула свободного падения и формулы которые тут нужны - разные. могу только дать тебе "скелет" программы. теперь тебе нужно найти именно ЭТИ формулы, которые записаны в задаче, возможно таких формул в чистом виде не существует и нужно применять навыки знания физики
Program name;
const n=5;
var
m:array[1..n] of integer;
i,t:integer;
begin
writeln('Введите ',n,' елементов массива');
for i:=1 to n do readln(m{i});
t:=m{1};
for i:=2 to n do t:=t*m{i};
write('вывод массива: ');
for i:=1 to n do write(m{i},' ');
writeln(#13#10,'Результат произведения элементов массива: ',t);
readln;
<span>end. </span>
Var
X:real;
Begin
Write('X = ');
ReadLn(X);
WriteLn('Y = ',X*X);
End.
Числовой.
Если число X, вернуть результат (X-1)/2.
Иначе вернуть "Не могу".