Регистрация
Яяяячканр345
01.02.2020 18:58
Информатика
Есть ответ 👍

Для фигур: равностороннего треугольника, квадрата, правильных 5-угольника, 6-угольника, …, n-угольника дана длина стороны а (одна и та же). вычислить площади s этих фигур. (pasсal)

230
393
Посмотреть ответы 2

Ответы на вопрос:

дэньчик4
дэньчик4
4,7(84 оценок)
Var   a, s: real;   n: integer; begin   write('введите через пробел длину стороны многоугольника и число сторон: ');   readln(a, n);   s : = n * sqr(a) / (4 * tan(pi / n));   writeln('площадь многоугольника равна ', s: 0: 4); end. тестовое решение: введите через пробел длину стороны многоугольника и число сторон: 5 10 площадь многоугольника равна 192.3552
nastyakorova664
nastyakorova664
4,6(70 оценок)
Program n1; var e, a: real; n, i: integer;   begin  write('n='); readln(n);   e: =1; for i: =1 to n do begin  a: =a/i;   e: =e+a   end;   writeln('e=', e)   end.

Популярно: Информатика