1) Переведите 47690 в 6-ич. 9-ич. и 14-ич. О. С. 2) Переведите числа 1462 и D8 в 10-ич. с. с.
3) Осуществите перевод числа 67328 - 2-ич, С.С. — 16-ич. с.с.
4) Осуществите перевод числа B2A30 — 2-ич С.С. 8-ич. с. с.
сделать по информатике контрольную работу
// Функция для определения из двух чисел минимальное
function min(a, b: real): real;
begin
if (a > b) then min := b else min := a
end;
// Функция для определения из двух чисел максимальное
function max2(a, b: real): real;
begin
if (a > b) then max2 := a else max2 := b
end;
// Функция для определения из трех чисел максимальное
function max3(a, b, c: real): real;
begin
// Сначала определяем максимальное из первых двух чисел,
// затем у нас останется два числа и нам остается определить
// максимальное из них
max3 := max2(max2(a, b), c);
end;
var
x, y, z, d, max_int: real;
begin
writeln('Введите 4 числа');
readln(x, y, z, d);
max_int := max3(min(x, y), min(x, z), min(z, d));
writeln(max_int);
end.