(цифры после примеров это система счисления 2ичная)
1.
а) 1 101 100 000(2) + 10 110 110(2);
б) 101 110 111(2) + 1 000 100 001(2);
в) 1 001 000 111,01(2) + 100 001 101,101(2) ; г) 271,34(8) + 1 566,2(8); д) 65,2(16) + 3СА,8(16).
2. а) 1 011 001 001(2) - 1 000 111 011(2) ;
б) 1 110 000 110(2) – 101 111 101(2);
в) 101 010 000,101 11(2)- 11 001 100,01(2) ; г) 731,6(8) - 622,6(8); д) 22D,1(I6) - 123,8(16).
3. а) 1 011 001(2)*1 011 011(2) ; б) 723,1(8)*50,2(8); в) 69,4(16)*А,В(16).
var
i, j, n, len, rem: integer;
a: array[1..200] of byte;
begin
write('Введите число: ');
read(n);
len := 1;
a[1] := 1;
for i := n + 1 to 99 {100} do
begin
for j := 1 to len do
begin
rem := a[j] * i + rem;
a[j] := rem mod 10;
rem := rem div 10;
end;
while rem > 0 do
begin
inc(len);
a[len] := rem mod 10;
rem := rem div 10;
end;
end;
writeln('Произведение чисел из интервала (', n, '; 100): ');
for i := len downto 1 do write(a[i]);
end.
Пример работы программы:
Введите число: 1
Произведение чисел из интервала (1; 100):
1948348720420644788695888257080283249381963823594360049498643927185579338215778728274424636079639781709574621897447185108592230400000000000000000000