1. Мяч падает с высоты Н и каждый раз отскакивает на 36% предыдущей высоты. Вычислить расстояние, пройденное мячом до полной остановки.
ПАСКАЛЬ
Через For,While,Repeat

Один из примеров программы. Дальше сам думай.var h,i:real;beginreadln(h);i:=h;while i>0 dobegini:=i*0.36;h:=h+i;end;writeln(h);end.