Формула свободного падения и формулы которые тут нужны - разные. могу только дать тебе "скелет" программы. теперь тебе нужно найти именно ЭТИ формулы, которые записаны в задаче, возможно таких формул в чистом виде не существует и нужно применять навыки знания физики
8192 бит<span> = 8 килобит </span>8192 бит<span> = 1 </span>килобайт
Var num, deg: integer;res: real;i: byte;begin write('Число: '); readln(num); deg:=6; res := 1; i := 0; while i < abs(deg) do begin res := res * num; i := i + 1 end; if deg < 0 then res := 1 / res; writeln(res); readlnend.
1)2
3)Заключается в тои,что данные с одного источника передвются на другой.
Var x,y :real;
begin
write('Введите значение x=');
readln(x);
if (x>-3) and (x<5) then
begin
if x<-1 then y:=3*x
else if x<1 then y:=sin(x)-cos(x)
else y:=x*x+1/2*x-7;
writeln('При x=',x,' y=',y)
end
else writeln('При x=',x,' функция не определена')
<span>end.</span>
