Как создать рисунок в среде скрейч​

program gh;

    var a: array[ 1..10] of integer;

                i: integer;

begin

  for i: =1 to 10 do

        begin

              a[i] : = random(20) + 20;

              write(a[i]);

        end;

end.

наверняка двоичные числа надо только определить где ноль а где один

наверно о - one

10101

10110

10111

11000

11001

вроде как сходится, продолжаем

11010

11011

11100

11101

11110

11111

обратную замену самостоятельно

стандартный программе просмотра изображений и факсов не сохраняет в других форматах.

потому лучше открыть paint или любой другой просмотрщик или графический редактор

просто открыть в нем нужную картинку и файл-сохранить как(в новом окошке внизу в списке выбрать формат)

о форматах написано много в интернете.

если хотите пошаговую инсрукцию, то присоединяйте картинки и табличку, а то так не ясно че делать

var x1, x2, x3, y1, y2, y3, p: real;

function len(x1, y1, x2, y2: real): real; begin len : = sqrt(sqr(x2 - x1) + sqr(y2 - y1)); end;

begin readln(x1, y1, x2, y2, x3, y3); p : = len(x1, y1, x2, y2) + len(x1, y1, x3, y3) + len(x2, y2, x3, y3); writeln(p: 8: 3); end.