Надо составить программу в Паскаль, по задаче. У Тани есть теннисный мячик. Она со всей силы бросила его об асфальт. После первого отскока мячик подлетел на высоту 360 см, а после каждого следующего отскока от асфальта подлетал на высоту в три раза меньше предыдущей. После какого по счёту отскока высота, на которую подлетит мячик, станет меньше 15 см?

Var i:integer; n:real;

Begin

n:=360;   //высота

i:=1;   //количество отскоков

while n>=15 do

  begin

     n:=n/3;      //высота уменьшается в 3 раза

     i:=i+1;   //кол-во отскоков увеличиваем на 1

 end;

write(i);

End.

Объяснение:

таблица умножения

программа телепередач

телефонный справочник

прогноз погоды

меню в столовой

налить в 9-литровое 9 литров

отлить 2 раза по 4 л. останется 1 л его вылить в 4х литровое

налить полное 9-литровое ведро и отлить из него в 4х литровое в котором уже есть 1 литр туда войдет 3 литра в 9-литровом останется 6 литров