Программа с НОД
var t,t1,x,y,z:integer;
Function NOD(a, b: integer): integer;
Begin If a=b then NOD:=a
else if a>b then NOD:=NOD(a-b, b)<span>
Else NOD:=NOD(a, b-a);
</span>End;
begin
writeln('Введите 2 числа');
readln(x,y);
t:=NOD(X,Y);
writeln(t);
end.<span>
</span>
5*2=10 23> 10
ответ да хватит
X[ i ]<>R по выходу из while как раз i - и будет индекс элемента массива, равного R
Формула свободного падения и формулы которые тут нужны - разные. могу только дать тебе "скелет" программы. теперь тебе нужно найти именно ЭТИ формулы, которые записаны в задаче, возможно таких формул в чистом виде не существует и нужно применять навыки знания физики