надо 23.12.20 как дам и подпишусь ​

Андрей Андреевич Марков родился 9 (22) сентября 1903 в Санкт-Петербурге. Советский математик, сын известного русского математика А. А. Маркова, основоположник советской школы конструктивной математики.

Окончил Восьмую Петроградскую гимназию в 1919 году;

Ленинградский государственный университет в 1924 году;

аспирантуру в Астрономическом институте в Ленинграде в 1928 году.

Учёная степень доктора физико-математических наук присвоена без защиты диссертации в 1935 году. Член-корреспондент АН СССР с 1953 года, в том же году вступил в КПСС.

В 1933-1955 годах работал в Ленинградском университете (с 1936 г. — профессор): с 1936 по 1942 год и с 1943 по 1953 год — заведующий кафедрой геометрии. До июля 1942 года находился в блокадном Ленинграде.

С 1959 по 1979 год — заведующий кафедрой математической логики Московского государственного университета.

Одновременно в 1939-1972 работал в Математическом институте имени Стеклова АН СССР.

В 1950-х годах создал в Вычислительном Центре АН СССР лабораторию математической логики и структуры машин, которой руководил около двадцати лет.

В 1968 году подписал «Письмо 99».

Писал стихи (опубликованы в журнале «Звезда»)

Основные труды — по теории динамических систем, топологии, топологической алгебре, теории алгоритмов и конструктивной математике.

Доказал неразрешимость проблемы равенства в ассоциативных системах (1947), проблемы гомеоморфии в топологии (1958), создал школу конструктивной математики и логики в СССР, автор понятия нормального алгоритма.

Награды:

Орден «Знак Почёта» (1945);

Орден Ленина (1954);

Орден Трудового Красного Знамени (1963);

Медаль «За доблестный труд в Великой Отечественной войне 1941-1945 гг.» (1945);

Медаль «За оборону Ленинграда» (1946);

Премия имени П. Л. Чебышёва АН СССР (1969).

Объяснение:

Var x,y,z: real;
      t: integer;
begin writeln('введите х и у');
          readln(x,y);
          z:=sqrt(sqr(x)-sqr(y));
          t:=0;
          while (z>0,1) do
          begin t:=t+1;
                    z:=0,98*z;    {если 2% от изменяющегося расстояния до пола;
                   если же имеется ввиду 2% от исходного расстояния,
                   то нужно будет ввести новую переменную
                   или присвоить исходное значение z, например х,
                   то есть сразу после z:=sqrt(sqr(x)-sqr(y)); написать x:=z;
                   Формула (оператор) z:=0,98*z;  изменится так:
                   z:=z-x*0,98}
           end;
          writeln('палка упадет через ', t,' мин.');
end.