Вычислите площадь кольца ширина которого равна h, а отношение радиуса большей окружности к радиусу меньшей окружности равно d. пример program a1; var a, b, c: integer; begin readln (a, b,c); if (a+b> c) and (a+c> b) and (b+c> a) then writeln ( "треугольник построить можно") else writeln ("треугольник построить нельзя"); end.

Var h,d,s: real; begin   write('ширина кольца h: '); readln(h);   write('отношение радиусов d: '); readln(d);   s: =pi*sqr(h)*(d+1)/(d-1);   writeln('площадь кольца: ',s: 7: 3); end.// h = r - r     r/r = d // h = r*(d-1) =>   r = h/(d-1) // r = (d*h)/(d-1) // s = pi*(sqr(r) - sqr(r)) = pi*sqr(h)*((sqr(d)-1)/(sqr(d-1)) // s = pi*sqr(h)*(d+1)/(d-1)ширина кольца h: 2 отношение радиусов d: 1.5 площадь кольца:   62.832

1.

program xxx;

var i, n : integer

begin

  writeln ('введите число n=');

  readln (n);

  writeln ('делители числа: ');

  for i: = 1 to n do

      if n mod i = 0 then writeln (i);

  readln

end.

минимально возможное число бит для десятичных цифр равно 4,значит инф объем = 150симв * 4бит =600 бит,

ответ: 600 бит