<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
function NOD(var a,b:integer):integer;
begin
if a>b then a:=a-b
else
if b>a then b:=b-a;
if a=b then Result:=b
else Result:=NOD(a,b)
end;
begin
var (a,b):=(21,14);
Writeln(NOD(a,b))
end.
Алгоритм Евклида работает <u>только для натуральных чисел</u>!
Var
sum, k, n, i: integer;
begin
sum := 0;
write('n: ');
readln(n);
for i := 1 to n do
begin
readln(k);
sum := sum + k;
end;
writeln('sum = ', sum);
end.
1 0 0 0 1 0 1 1 – 139
1 0 1 1 1 0 0 0 – 184
1 0 0 1 1 0 1 1 – 155
1 0 1 1 0 1 0 0 – 180
<span>9A – 154</span>
Значит 3 числа, записанных в двоичной форме больше, чем 9А
Правильный ответ
3) 3
<span>
Рекомендую использовать стандартный инженерный калькулятор, встроенный в Windows</span>