я знаю только блок схемы Visio
Запустите Visio.
Выберите категорию Блок-схема.
Дважды щелкните значок Простая блок-схема.
Для каждого этапа документируемого процесса перетащите в документ соответствующую фигуру блок-схемы.
Чтобы соединить элементы блок-схемы, наведите указатель мыши на первую фигуру, и щелкните стрелку, указывающую на фигуру, с которой требуется создать соединение. Если вторая фигура находится не рядом с первой, необходимо перетащить маленькую стрелку к центру второй фигуры.
Чтобы добавить текст для фигуры или соединительной линии, выделите ее и введите текст. По завершении ввода текста щелкните в пустой области страницы.
Чтобы изменить направление стрелки соединительной линии, выберите соединение, а затем на вкладке Фигура в группе Стили фигур щелкните пункт Линия, наведите указатель на пункт Стрелки и выберите нужное направление и вид стрелки.
Автоматическое выравнивание и интервалы
Нажмите сочетание клавиш CTRL+A, чтобы выбрать все объекты на странице.
На вкладке Главная в группе Упорядочение нажмите кнопку Положение и выберите пункт Автовыравнивание и определение интервалов.
A) a = 3
print(a**5)
#Здесь не нужно использовать модуль, так как в Пайтоне или Питоне есть функция возведение в степень
B) import math
a = 49
print(math.sqrt(a))
#Здесь добавляем библиотеку или модуль командой import, создаем переменную и с команды math.sqrt извлекаем кв. корень числа 49.
C) import math
a = 7.57
print("Ближайшее наименьшее: ", math.floor(a))
print("Ближайшее наибольшее: ", math.ceil(a))
#Здесь почти все также, как и во 2, но используем 2 команды округления, это math.ceil, до ближайшего и math.floor до наибольшешо числа
Program Ainur59;
uses crt;
const n=10;
var
i,j:integer;
matr:array[1..n,1..n] of integer;
diag:array[1..n] of integer;
begin
writeln('*** Alphaeus is thinking... ***');
writeln('*** OK ***');
writeln('Для заданной квадратной матрицы сформировать одномерный массив из её диагональных элементов');
randomize;
writeln('Матрица: ');
for i:=1 to n do
begin
for j:=1 to n do
begin
matr[i,j]:=random(100)-50;
write(matr[i,j]:4,' ');
if i=j then diag[i]:=matr[i,j];
end;
writeln();
end;
writeln();
writeln('Mассив диагональных элементов:');
for i:=1 to n do
write(diag[i]:4,' ');
end.