//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
Г=11
010 не подходит-длина кода не будет минимальной, 00 не подходит. будут вопросы с буквой Б, 01 не подходит-неоднозначно с буквой А
1. Водонагреватель. Служит для подогрева проходящей через него воды.
Входы: электропитание, холодная вода.
Выходы: горячая вода.
2. Телевизор. Устройство для демонстрации изображения со звуковым сопровождением.
Входы: электропитание, сигналы от внешних устройств, управление от пульта.
<span>Выходы: звук изображение, сигналы на внешние устройства.</span>
Var
i,k:Integer;
Begin
for i:=10 to 99 do
if (i mod 10 = 5) or (i mod 10 = 0) then k:=k+1;
Writeln(k);
end.
3.000.000 умножаем на 8 бит(тобишь каждый символ 8 бит) получаем 24.000.000 теперь делим это число на 8(узнаем сколько байт весит файл) потом делим на 1024 байта(узнаем вес в кБайтах) и делим на 1024 (узнаём скок весит в мБайтах) получается 3МБайта, но это если система кодирования 8 бит, если другая, то и ответ другой
Чтобы узнать часть делим 700 на 3, получается он занимает 1/233-ю диска (я могу ошибаться как узнать часть занимаемую..)
2 также делим и узнаём результат