tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Определить периметр
Определить периметр p правильного многоугольника если задан радиус вписанной окружности r и количество углов n: p=n*a, где a=2*r*tg(180градусов/n). это все в программе паскаль.записать на языке паскаль.
kristinandrosov
1 19.07.2019 12:10
0
Ответы
f0xses
03.10.2020 07:55
//Pascal ABC.NET v3.1 сборка 1172
Var
n:integer;
r,p:real;
begin
read(n,r);
p:=n*2*r*tan(pi/n);
writeln(p);
end.
Пример ввода:
6
4
Пример вывода:
27.712812921102
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Luska1367
21.02.2021 14:31
Изучить предложенный код программы и определимся результат выполнения при а=2 b=-4...
PamPam98
12.03.2021 09:04
Дан числовой ряд и некоторое число e. На фото под цифрой 2...
dmitriyvoron8
12.03.2021 09:03
Приведите и сравните автоматической настройки BIOS SETUP, обоснуйте их необходимость...
орлыварив
23.01.2022 06:44
Создать проект в Tinkercad, в котором будут 6 светодиодов различных цветов, подключенные к различным портам. Далее в программе мы создаем переменную day и записываем...
sXiM
06.06.2021 07:03
написать Сочинение нет тропа более бластательного, сообщающего речи большее количество ярких образов, чем метафора...
nikakim03
06.06.2021 07:03
Ж.Аймауытұлы қай жерде қызмет істемеді?...
Впрвиво199119
06.06.2021 07:00
Вычислите ионную силу раствора 0,2М раствора CaCl2...
ktoEto123123213
06.06.2021 06:58
4 маусымға қарсы эссеӨтініш жасап бериндерши...
lainzord
06.06.2021 06:58
Ребят напишите с объяснением Скорость лодки по течению реки 26,4 , а 18,2 против течения Найдите скорость в стоячей воде...
olya0091184
06.06.2021 04:59
В калориметре смешали 120 г льда при температуре –5 ℃ и 50 г пара при температуре 100 ℃. Удельная теплоемкость воды 4200 Дж/(кг⋅℃), удельная теплоемкость льда 2100 Дж/(кг⋅℃)....
Популярные вопросы
Найдите значение р, если 1) -р=8 2) -р=-18 3) -р=-0,1 4-р=0...
1
Нужна книга писателя не по школьной программе и желательно, чтобы...
3
60■ ÷ ■ = 3■4 подбери подходящий цифры...
1
Ln8-ln4+ln√100 найти область определения функции y=log7(5-4x)...
3
Катер проплыл по течению реки 72 км и вернулся обратно затратив на...
1
Боковые стороны прямоугольной трапеции авсd равны 10см и 8см. ее...
3
Тетрадь стоит 36 рублей.какое наибольшее число таких тетрадей можно...
3
За доставку дивана покупатель заплатил 350р., что составило 5% от...
1
Запишите слова, выделив окончания. объясните их правописание.образец:...
3
Решить 3*(11-7х)-16=, нужно,и 8*(12-3х)+5=24 и 5/6*(1/2-х)+1/3=2/3,...
1
Var
n:integer;
r,p:real;
begin
read(n,r);
p:=n*2*r*tan(pi/n);
writeln(p);
end.
Пример ввода:
6
4
Пример вывода:
27.712812921102