Var
A,N:integer;
P:real;
Begin
Write('A = ');
ReadLn(A);
Write('N = ');
ReadLn(N);
P:=1;
For N:= 0 to N-1 do
P:=P*(A+N);
WriteLn('P = ',P)
End.
<span>A) Над каждой цифрой от запятой влево расставим разряды (от 0 до 4), вправо у нас будут отрицательные (-1 и -2) Далее каждую цифру умножаем на основание системы счисления в степени разряда и на соответствующую цифру числа и складываем
11001,01=1*2^4+1*2^3+0*2^2+0*2^1+1*2^0, 0*2^(-1)+1*2^(-2)=25,25
Б) прикреплю фото
В)Для начяала переведем это число в 10 СС
</span>11011.101102 =1∙2^4+1∙2^3+0∙2^2+1∙2^1+1∙2^0+1∙2^(-1)+0∙2^(-2)+1∙2^(-3)+1∙2^(-4)+0∙2^(-5) = 16+8+0+2+1+0.5+0+0.125+0.0625+0 = 27.6875 (10<span> СС)
дальше 27 разделим на 8 и получим
</span><span>27(10 СС) = 33 (8 СС)
дробная часть получается при умножении на основание СС то есть на 8
</span><span>0. 6875*8 = 5,5
оставляем целое число 5
теперь
5* 8= 40 на конце у нас ноль, умножение закончили
</span>Получилось:<span>0.6875(10 СС) = 0.54 (8 СС)</span>
<span>33(8) + 0.54(8) = 33.54(8)
</span><span>
С 16 СС тоже самое, только делим на 16. </span>
Var a, b, c : integer;
begin
readln(a, b, c);
if (a = b) and (a=c) then writeln('Треугольник равносторонний');
if ((a=b) and (a<>c)) or (b = c) and (b<>a) then writeln('Треуголник равнобедренный')
end.
Ошибка после условия, цикл будет выполнятся бесконечно, так как переменная a всегда будет a=1. Чтобы исправить это, нужно:
s=s+a
n=n+1
a=a+1
Результат - 10.
Допустим: Папа родился в 1977 , но он младше мамы по месяцам и дням. Мама родилась на 2 года позже папы , в мае 5.