если a>5 то a:=a+20 иначе a:=a*10
Подставляем значение а.
1) a=4
если 4>5 то a:=4+20 иначе a:=4*10
Утверждение ложно, выполняется то, что после "иначе". a:=4*10 = 40
2) a=17
если 17>5 то a:=17+20 иначе a:=17*10
Утверждение истинно, выполняется то, что после "то". a:=17+20 = 37
Алгоритм
Ввод массива A[n,m]
Max := A[1,1]; k := 1; p := 1; s := 0;
Алгоритм
Ввод массива A[n,m]
Max := A[1,1]; k := 1; p := 1; c := 0;
Цикл по i от 1 до n (по строкам)
Цикл по j от 1 до m (по столбцам)
Если (A(i, j) = Max) and ((i<>k) or (j<>p)) То c := c+1;
Если (A(i, j) > Max) То
k := i; p := j; c := 1;
Max: = A(i, j);
Конец Если
Конец цикла по столбцам
Конец цикла по строкам
Вывод "Элемент ", Max, " встречается ", c, " раз"
Конец.
Программа
var A: array of array of integer
var i,j,m,n,k,p,s,Max: integer
BEGIN
uses crt; clrscr;
write ('Vvedite kol-vo strok: '); readln (n);
write ('Vvedite kol-vo stolbtsov: '); readln (m);
setlength(A,n,m);
for i=1 to n do
begin
for j=1 to m do
begin
write ('Vvedite element vassiva: '); readln (A[i,j]);
end;
end;
Max := A[1,1]; k := 1; p := 1; c := 0;
for i=1 to n do
begin
for j=1 to m do
begin
if (A(i, j) = Max) and ((i<>k) or (j<>p)) then c := c+1;
if (A(i, j) > Max) then
begin
k := i; p := j; c := 1;
Max: = A(i, j);
end;
end;
end;
write ('Element ', Max, ' vstrechaetsya ', c, ' raz');
END.
Ответ:
11110001
Объяснение:
Ближайшая степень двойки к исх.числу - 128(2^7). Чисел в двоичном представлении значит будет 8(седьмая степень двойки плюс нулевая), на 8 позиции будет 1. Вычитаем из 241 128, получаем 113. Поступаем аналогично, ближайшая степень - 64(2^6), на 7 позиции будет 1. 113-64=49. Ближайшая степень 32(2^5). на 6 позиции 1. 49-32=17. ближайшая степень 16(2^4). на 5 позиции 1. 17-16=1. ближайшая степень 1(2^0). на 1 позиции единица. Теперь выставляем единицы на нужные позиции и получаем
11110001
Ответ:
Объяснение:
"Идёт направо — песнь заводит,
Налево — сказку говорит".
Блок-схема конструкции ветвления: