В самом скрипте написано - надо нажать клавишу Пробел.
<span>a. 20 div 3 = 6</span>
<span>b. 2 mod 3 = 2
</span><span>c. 56 shl 2 = 224</span>
<span>d. 30 shr 2 = 15
</span><span>e. round(87.5) = 88
</span><span>f. trunc(87.5) = 87</span>
<span>g. int(87.5) = 87.0
</span><span>h. frac(87.5) = 0.5</span>
Нужно что-то присвоить функции для случая, когда (2*a+b-c)<0
Например, так:
function sqrt1 (a, b, c: real): real;
begin
if (2 * a + b - c) < 0 then
<span>begin writeln (' complex number '); sqrt1:=-1; end</span>
else sqrt1:= sqrt(2 * a + b - c);
<span>end;</span>
//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
<span>Нажмите кнопку Кнопка Microsoft Office и выберите пункт Параметры Word. </span>
<span>Щелкните категорию Настройка. </span>
<span>В диалоговом окне Параметры Word в списке Выбрать команды из выберите Все команды. </span>
<span>В списке команд выбранной категории выберите Автоформат и нажмите кнопку Добавить.</span>
<span>Примечание. Можно также добавить команду Выполнить автоформат.</span>