Question

Разработайте программу, запрашивающую высоту дома h ( в метрах), ускорение свободного падения g и вычисляющую время падения кирпича t (в секундах) с крыши этого дома по формуле: t=4, Разработайте программу, запрашивающую у пользователя длины обеих катетов прямоугольного треугольника, и выводящую на экран гипотенузу по формуле Пифагора.

Answer 1

var

  h, g:real;

begin

  write('h = '); readln(h);

  write('g = '); readln(g);

  writeln('Тело будет лететь до земли ', sqrt(2 * h / g), ' сек');

end.

 

//вторая задача

var

  a, b:real;

begin

  write('a = '); readln(a);

  write('b = '); readln(b);

  writeln('c = ',sqrt(a * a + b * b));

end.