Дана программа:

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

b:=0;
m:=length(max)-1;
j:=m;

for i:=1 to m do

begin

val(max[i],p,code);

while j>=0 do

p:=p*step(2,j);

b:=b+p;
j:=j-1;

writeln(b);

end;

В разных ситуациях оно может употребляться со следующими прилагательными:
1)Секретная,научная,ложная,техническая,массовая
2)Текстовый,графический,системный
3)Мультимедийная,концертная,обязательная,игровая
4)Разнообразное,диетическое,выпадающее,вложенное
5)Разбитое,высокое,диалоговое,активное
6)Рыболовная,глобальная,торговая,локальная

память последние два числа), - сложить (складываются занесённые в память последние два числа), - вычесть (вычисляется разность занесенных в память последних двух чисел), - результат (вывести результат) Например, в результате выполнения алгоритма: - взять число 5, - взять число 10, - взять число 2, - вычесть, - умножить, - результат получим ответ 40, так как 5*(10-2)=40. Какой результат будет получен при выполнении приведённого ниже алгоритма? - взять число 4, - взять число 8, - взять число 2, - вычесть, - взять число 10, - умножить, - взять число 56, - вычесть, - вычесть, - результат. Дайте объяснение своему ответу (приведите формулу для вычисления).

Входные данные
В первой строке записаны через пробел размеры матрицы: количество строк N и количество столбцов M ( 1 ≤ N , M ≤ 100 ). В следующих N строках записаны строки матрицы, в каждой – по M натуральных чисел, разделённых пробелами.

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

z);

if (x<=y) and (y<=z) then begin x:=2*x y:=2*y; z:= 2*z

end

else

begin

x:= abs(x) y:= abs(y) z:= abs(z)

end

writeln( x, ' ', y, ' ', z)

end

Составьте блок-схему, соответствующую программе.

Что является результатом работы программы?

min,max:integer; begin ClrScr; randomize; writeln('Исходный массив:'); for i:=1 to Nmax do begin m[i]:=random(20)-10; write(m[i],' '); end; max:=m[1]; min:=m[1]; i_min:=1; i_max:=1; for i:=1 to Nmax do begin if m[i]>max then begin max:=m[i]; i_max:=i; end; if m[i]