М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
mottorinanadia7
mottorinanadia7
17.02.2022 13:08 •  Информатика

Определить периметр p правильного многоугольника если задан радиус вписанной окружности r и количество углов n: p=n*a, где a=2*r*tg(180градусов/n). это все в программе паскаль.записать на языке паскаль.

👇
Ответ:
Kari200511
Kari200511
17.02.2022
//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
4,7(100 оценок)
Открыть все ответы
Ответ:
гогогогог
гогогогог
17.02.2022

Вот тебе в паскале


program ryad_chisel;

var N, t:integer;

begin

read(N);

t:=(N*(N+1))div 2;

if t mod 2 =1 then writeln('IMPOSSIBLE')

else begin

     if N mod 2 =0 then begin

                        t:=N div 4;

                        repeat

                        write('+');

                        t:=t-1;

                        until t=0;

                        t:=N div 2;

                        repeat

                        write('-');

                        t:=t-1;

                        until t=0;

                        t:=N div 4;

                        repeat

                        write('+');

                        t:=t-1;

                        until t=0;

                        end

     else begin

          t:=((N+1) div 4)-1;

          repeat

          write('+');

          t:=t-1;

          until t=0;

          t:=((N-1) div 2)+1;

          repeat

          write('-');

          t:=t-1;

          until t=0;

          t:=(N+1) div 4;

          repeat

          write('+');

          t:=t-1;

          until t=0;

          end

     end    

end.

4,6(45 оценок)
Ответ:
gussamovadel
gussamovadel
17.02.2022

20 МБайт = 20 * 1024 байт = 20 * 1024 * 8 бит = 163840 бит


Сначала рассмотрим первый случай, с применением архиватора:


Сначала инициатор отправки сжимает файл и затрачивает 14 секунд. Теперь файл весит 80% от 163840 бит = 131072 бит.


Затем инициатор отправки отправляет файл размером 131072 бит. На это затрачивается (131072 бит / 223 бит = 587.766816143) секунд.


Затем человек по ту сторону кабеля получает и распаковывает файл, на это он тратит 2 секунды. Суммарно затраченное время = 14 + 587.766816143 + 2 секунд = 603.766816143 секунд.


Рассмотрим второй случай, без применения архиватора:


Инициатор отправки отправляет файл размером 163840 бит. На это затрачивается (163840 бит / 223 бит = 734.708520179) секунд. Суммарно затраченное время = 734.708520179 секунд.


ответ: А 130.941704036

4,4(22 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ