Var
a, b: integer;
begin
readln(a);
b := 180 - a;
writeln('Смежный угол равен: ', b);
end.
Представим число 789(8) в десятичном представлении.
7*8^2 + 8*8^1 + 9*8 = 521
(решение в картинке)
<em>Формула некорректна, поскольку при i=1 и k=1 знаменатель дроби обращается в ноль. Программа будет всегда возвращать "бесконечность".</em>
var
i,k,m,n,ik:integer;
si,sk,facti,factk:double;
begin
Write('Введите через пробел значения m и n: ');
Read(m,n);
sk:=0; factk:=1;
for k:=1 to m do
begin
si:=0; facti:=1; ik:=1; factk:=factk*k;
for i:=1 to n do
begin
ik:=-ik; facti:=facti*i;
si:=si+factk/(ik+facti)
end;
sk:=sk+si
end;
Writeln('Результат: ',sk)
end.
1) 10
2) 17
3) 81
4) не знаю
5) 12
8)2 байта
Решаем!
в начале переведем в десятичную с.с.
1100101= 1*2^6+1*2^5+0*2^4+0*2^3+1*2^2+0*2^1+1*2^0=<span>64+32+4+1=101
</span>Теперь переводим в 5 с.с.
101\5=401
<span>1100101(в 2 с.с) = 401(в 5 с.с.)</span>