Кто рисует в приложении ibispaint x! ! где находится эта конфиденциальность? (это не касается информатики)

Костюмы можно добавить с кнопок "Выбрать костюм из библиотеки","Нарисовать новый костюм", "Добавить из файла" и "дублировать". При нажатии первой кнопки появится окно с разнообразными картинками, которые можно использовать не нарушая авторского права. Вторая кнопка создаст пустой костюм, можете рисовать с нуля или так и оставить. Третья откроет окно выбора файла, и вы можете добавить готовые картинки с вашего компьютера. При выборе gif-файла будут последовательно загружены все кадры. Последняя кнопка появляется при нажатии правой кнопкой мыши по любому костюму и копирует его.

Объяснение:

инфа с офиц сайта

Program abra;

Var

X : Array [1..20, 1..20] Of

real;

N : Integer;

P : Real;

i, j: Integer;

begin

WriteLn ('Вычисление произведения ');

Write ('Введите размерность:  N = ');

ReadLn (N);

WriteLn ('Введите элементы массива:');

For i := 1 To N Do

For j := 1 To N Do

Begin

Write ('X[', i, ',', j, '] = ');

ReadLn (X [i, j] );

End;

P := 1;

For i := 1 To N Do

For j := 1 To N Do

P := P * X [i, j];

if (X [i,j])=0 then writeln('присутствуют нулевые элементы')  else

WriteLn ('Произведение: P = ',p: 6: 1);

readln;

 end.

Объяснение: