<span>
Роман Николай Семён Артур
врач тренер художник егерь</span>
Ответ: РНСА.
Ответ:
Французский учёный Блез Пасхаль.
<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
ReadlnString('Введите целое число:').Reverse.Println
end.
Program n1;
const n = 6;
var a : array[1..n] of integer;
i, max, min, temp : integer;
begin
for i := 1 to n do readln(a[i]);
min := 1;
max := 1;
for i := 1 to n do
begin
if a[i] > a[max] then max := i;
if a[i] < a[min] then min := i;
end;
temp := a[max];
a[max] := a[min];
a[min] := temp;
for i := 1 to n do write(a[i],' ');
end.
1047₁₀ = 1024 + 16 + 4 + 2 + 1 = 1·2¹° + 0·2⁹ + 0·2⁸ + 0·2⁷ + 0·2⁶ + 0·2⁵ + 1·2⁴ + 0·2³ + 1·2² + 0·2¹ + 1·2⁰ = 10000010101₂
1047₁₀ = 1024 + 16 + 7 = 2·8³ + 0·8² + 2·8¹ + 7·8⁰ = 2027₈
1047₁₀ = 1024 + 16 + 7 = 4·16² + 1·16¹ + 7·16⁰ = 417₁₆