Lololox222
27.08.2020 12:31

Программа на python. одна любознательная девочка ильсияр проводит один интересный эксперимент. у неё есть n попрыгунчиков, i-й из которых изначально находится на некоторой высоте, заданной натуральным числом hi (в сантиметрах). за одну секунду каждый попрыгунчик падает на 1 см вниз. когда высота становится равной нулю, попрыгунчик отскакивает от пола и начинает лететь вверх со скоростью 1 см в секунду. достигнув своей изначальной высоты, попрыгунчик снова начинает лететь вниз (вот такие вот необычные законы , поэтому эксперимент настольно интересен), и так далее до бесконечности. ильсияр хочет узнать, будет ли когда-нибудь такой момент, когда все попрыгунчики одновременно ударятся об пол, и если это произойдёт, то требуется узнать минимальное время в секундах, через которое это случится.​

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
msveronika044
21.08.2022 23:29
По теореме косинусов находим косинус угла, лежащего против большей стороны и определяем вид треугольника.

var a, b, c, alpha: real;
begin
  write('Введите стороны: ');
  read(a, b, c);
  if a < b then swap(a, b);
  if a < c then swap(a, c);
  alpha := (b * b + c * c - a * a) / (2 * b * c);
  if a >= b + c then
    writeln('Треугольник нельзя построить')
  else if alpha = 0 then
    writeln('Треугольник прямоугольный')
  else if alpha > 0 then
    writeln('Треугольник остроугольный')
  else
    writeln('Треугольник тупоугольный')
end.
0,0(0 оценок)
Ответ:
ddonor89
21.08.2022 23:29
Var A : array [1..4, 1..4] of integer ;
i,j, p,k: integer ;
Begin
  randomize;
  k:=1; p:=1;
  For i:=1 to 4 do
  Begin
    For j:=1 to 4 do
    Begin
      A[i,j]:=random (100);
      if A[i,j]>A[k,p] then
      begin
        k:=i;
        p:=j;
      end;
      Write(A[i,j]:3);
    end;
    Writeln;
  end;
 
  writeln ('Максимальный элемент матрицы = ', A[k,p]);
  write ('Он находится в строке №' , k);
  writeln (' и в столбце №' , p);
  Writeln('Меняем максимальный элемент матрицы и первый элемент первой строки:');
  i:=A[k,p];
  A[k,p]:=A[1,1];
  A[1,1]:=i;
  For i:=1 to 4 do
  Begin
    For j:=1 to 4 do Write(A[i,j]:3);
    Writeln;
  end;
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота