2. Составить программу: вычислить и напечатать площадь ромба при значении диагоналей d1=15,9 и d2 в 3 раза меньше d1. Формула площади ромба :

Объяснение:

Цифрова́я фотогра́фия — технология фотографии, использующая вместо светочувствительных материалов, основанных на галогениде серебра, преобразование света светочувствительной матрицей и получение цифрового файла, используемого для дальнейшей обработки и печати.

Поскольку обработка полученных файлов изображения производится на компьютере (или на другой цифровой технике), цифровая фотография часто относится к области информационных технологий.

Помимо собственно цифрового оборудования, в сферу цифровой фотографии оказываются традиционно включены

ОТДЕЛ Задание+;

ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём;

ПЕР
  число: ЦЕЛ;
  шестн: РЯД 32 ИЗ ЗНАК;
  сч: ЦЕЛ;
  зн: ЗНАК;

ЗАДАЧА ШестнЦифра(цифра: ЦЕЛ): ЗНАК;
УКАЗ
  ЕСЛИ цифра < 10 ТО ВОЗВРАТ ВЗНАК(ВЦЕЛ("0") + цифра)
  ИНАЧЕ ВОЗВРАТ ВЗНАК(ВЦЕЛ("A") - 10 + цифра) КОН
КОН ШестнЦифра;

УКАЗ
  число := Приём.Число();
  шестн := "";
  Вывод.Цепь("^");

  ПОКА число > 0 ВЫП
    шестн[ДЛИНА(шестн) + 1] = 0X;
    шестн[ДЛИНА(шестн)] = ШестнЦифра(число ОСТАТОК 16);
    число := число ДЕЛИТЬ 16
  КОН;

  ОТ сч := 0 ДО ДЛИНА(шестн) - 1 ВЫП
    зн := шестн[сч];
    шестн[сч] := шестн[ДЛИНА(шестн) - 1 - сч];
    шестн[ДЛИНА(шестн) - 1 - сч] := зн
  КОН;

  Вывод.Цепь(шестн)

КОН Задание.