Pascal abc. задан радиус окружности r. если радиус окружности меньше 6 см, найти длину этой окружности, в противном случае найти площадь круга, ограниченного данной окружностью. l=2pr, s=2pr^2

Var   r: real; begin   writeln('введите радиус окружности в сантиметрах');   readln(r);   if r < 6 then writeln('длина окружности: ', 2 * pi * r)   else writeln('площадь круга, ограниченного данной окружностью: ', pi * sqr(r)); end. площадь круга равна pi * r^2, а не  2pr^2, как написано в условии!

3^i = 18

i = 3

ответ. 3 лампочки.

2000 - k

16 бита - i

v=k*i=2000*16=32000 бита=4000 байтов