Заданы длины катетов прямоугольного треугольника. составьте программу, с которой определите радиус вписанной и радиус описанной окружности.

Формулы:
с=кв.корень из (а^2+b^2)
r=(a+b-c)/2
R=c/2

var   a,b,c,r1,r2: real;
begin
  write ('введите катет а: ');
  readln (a);
  write ('введите катет b: ');
  readln (b);
  c:=sqrt(a*a+b*b);
  r1:=(a+b-c)/2; //радиус вписанной окружности
  r2:=c/2; //радиус описанной окружности
  writeln;
  writeln ('r = ',r1:6:2);
  writeln ('R = ',r2:6:2);
end.

Пример:
введите катет а: 4
введите катет b: 6
r =   1.39
R =   3.61
***значения округлены до 2 знаков после запятой

32

Объяснение:

Данная программа прибавляет к переменной s 128, а еще увеличивает переменную n в два раза, и все это до тех пор пока s меньше или равняется 1024. То есть, эти изменения переменных прекратятся, когда условие цикла не будет выполнено (а именно, когда s станет больше 1024). И после того, как это произойдет программа выведет значение переменной n (как раз то, что нам нужно узнать!)

Итак, запустим программу:

n = 1

s = 0

Условие цикла выполняется (s меньше или равняется 1024)? Да.

Выполняется цикл.

После цикла:

n = 2

s = 128

Условие цикла выполняется (s меньше или равняется 1024)? Да.

Выполняется цикл.

После цикла:

n = 4

s = 256

Условие цикла выполняется (s меньше или равняется 1024)? Да.

Выполняется цикл.

После цикла:

n = 8

s = 512

Условие цикла выполняется (s меньше или равняется 1024)? Да.

Выполняется цикл.

После цикла:

n = 16

s = 1024

Условие цикла выполняется (s меньше или равняется 1024)? Да.

Выполняется цикл.

После цикла:

n = 32

s = 2048

Условие цикла выполняется (s меньше или равняется 1024)? Нет (наконец-то!).

Цикл перестает выполнятся, и программа пишет значение n, которое равняется (смотрим выше) 32.

На экране напечатано 32, все живы, все счастливы!

32

Объяснение:

Данная программа прибавляет к переменной s 128, а еще увеличивает переменную n в два раза, и все это до тех пор пока s меньше или равняется 1024. То есть, эти изменения переменных прекратятся, когда условие цикла не будет выполнено (а именно, когда s станет больше 1024). И после того, как это произойдет программа выведет значение переменной n (как раз то, что нам нужно узнать!)

Итак, запустим программу:

n = 1

s = 0

Условие цикла выполняется (s меньше или равняется 1024)? Да.

Выполняется цикл.

После цикла:

n = 2

s = 128

Условие цикла выполняется (s меньше или равняется 1024)? Да.

Выполняется цикл.

После цикла:

n = 4

s = 256

Условие цикла выполняется (s меньше или равняется 1024)? Да.

Выполняется цикл.

После цикла:

n = 8

s = 512

Условие цикла выполняется (s меньше или равняется 1024)? Да.

Выполняется цикл.

После цикла:

n = 16

s = 1024

Условие цикла выполняется (s меньше или равняется 1024)? Да.

Выполняется цикл.

После цикла:

n = 32

s = 2048

Условие цикла выполняется (s меньше или равняется 1024)? Нет (наконец-то!).

Цикл перестает выполнятся, и программа пишет значение n, которое равняется (смотрим выше) 32.

На экране напечатано 32, все живы, все счастливы!