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, как написано в условии!

Ачто если умножать так: перемножить все числа от 1 до 100 домножить все числа от 100 до 1000 домножить все числа от 1000 до 2018 умножить на 100 и на 1000 вот так: (1×2×3××99×101××999×1001××2018)×100×1000 100×1000=100000 (пять нулей! ) при умножении любого числа на кратное 10 просто добавляем к нему столько нулей, сколько в этом кратном: 2 × 1 00=2 00 5289 × 1 00000 = 5289 00000 т.е мы умножим то огромное число (из 2016 чисел) на 100000 и получим это же огромное число, только с пятью нулями в конце ответ : пять нулей это действие называется факториал. я нашел в интернете мощный онлайн-калькулятор и из факториала 2018 получил число с множеством нулей в конце. я не смог вставить его, так как оно больше 5000 знаков

1)в каждой строке 80 символов и каждый символ по 4 байта,то есть 80*4=320 байта в одной строке.так как таких строк 40,то умножаем 320 на 40,получаем 12800 байт.в килобайтах будет 12800/1024=12,5 килобайт байты у нас,теперь нужны биты. в одном байте 8 битов ,то есть 12800*8=102400 битов в одном килобите 1024 битов,то есть 102400/1024=100 килобит 2)можно пойти чуть другим путем,но это тож самое.30 строк по 60 символов,то есть 30*60=1800 символов. символов весит 1 байт,то есть на странице 1800 байтов.1800/1024=1, 1800*8=14400 битов 14400/1024=примерно 14,0625 килобитов p.s одна загвоздка,меня учили,что в килобите 1024 битов,но в инете иногда пишут шо это 1000,если что просто дели на 1000 вместо 1024. такое только с битами,остальные содержат 1024