<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
ReadArrInteger(10).Printlines
end.
Мультимедиа — интерактивная система, обеспечивающая одновременное представление различных медиа — звук, анимированная компьютерная графика, видеоряд
Мне так кажется, что так:
1.Учитель проверяет тетради с диктантом, который написали учащиеся - <span>Циклический алгоритм
</span>2.Радиолюбитель собирает приемник, выполняя последовательность сборки, приведенную в журнале -<span>Последовательный алгоритм
</span>3. На берегу моря ребенок строит замок из мокрого песка -<span>Это невозможно представить в виде алгоритма</span>
1)
8×10^4+7×10^3+6×10^2+5×10^1+4×10^0
11×16^3+12×16^2+13×16+3
7×8^4+5×8^3+3×8^2+1×8+1×8^0
2^4+2^2+2^1
2)
3586 (10)=2048+1024+512+2=111 000 000 010(2)=7002(8)=D02(16)
11257 (10)=8192+2048+1024+2+1=010 110 000 000 011(2)=25003(8)=2C03(16)
328(10)=256+64+8=101 001 000(2)=510(8)=148 (16)
512 (10)=001 000 000 000(2)=1000 (8)=200(16)
Var
a, b: integer;
function greatest_common_divisor(m, n: integer): integer;
var
modulo: integer;
begin
modulo := m mod n;
if modulo = 0 then
greatest_common_divisor := n
else
greatest_common_divisor := greatest_common_divisor(n, modulo)
end;
procedure reduce_the_fraction(a, b: integer);
var
gcd: integer;
sign: string;
begin
gcd := greatest_common_divisor(a, b);
if a * b < 0 then
sign := '-';
writeln(sign, abs(a) / gcd, '/', abs(b) / gcd);
end;
begin
write('Enter two numbers: ');
readln(a, b);
reduce_the_fraction(a, b);
end.
