что-то типа этого:
<span>const n = 8, m = 8;
var
A: array[1..n,1..m] of integer;
i, j, sum, product: integer;
isnotnull: boolean;
begin
randomize;
writeln('Случайная матрица:');</span><span> for i:=1 to n do begin
for j:=1 to m do begin
A[i,j] := random(51) - 25;
write(A[i,j]:5);
end;
writeln;
end;</span><span> sum := 0;
for i:=1 to n do
if A[i,n-i+1] < 0 then
sum := sum + A[i,n-i+1];
writeln('Сумма отрицательных элементов побочной диагонали = ', sum);</span><span> product := 1;
isnotnull := False;
for i:=1 to n-1 do
for j:=2 to n do
if (j > i) and (A[i,j] <> 0) then begin
isnotnull := True;
product := product * A[i,j];
end;
if isnotnull
writeln('Произведение ненулевых элементов в области выше главной диагонали = ', product)
else
writeln('Ненулевых элементов в области выше главной диагонали нет.', product);</span><span> readln;
end.</span>
1. Вопрос.
79 = 1001111
444 = 110111100
2. Вопрос.
101000 = 40
10101011 = 171
3. Вопрос.
3 приложение превышает объем 15 мб
0.5 гб переведем в мегабайты 0.5*1024=512 мб
Ответ: Нет.
4. 545,6Кб=545,6*1024=558694.4Байт;
0,756Гб=0,756*1024=774.144мб, 774,144*1024= 792723.456Кбайт;
456789Б=456789/1024=446.08КБайт, 446.08/1024= 0.43Мб)
5. Музыкальныйклип = 15 символов
принято считать 1 символ 1 байт
1*15= 15 байт фраза занимает.
15*8= 120 бит
Ответ: 15 Байт, 120 бит
<span>const n = 5; var a: array[1..n] of integer;
i, k: integer;
s: real;
begin
s := 0;
for i := 1 to n do
begin
readln(a[i]);
s := s + a[i];
end;
s := s / n;
writeln('Среднее значение = ', s:0:3);
k := 1;
for i := 2 to n do
if abs(a[k] - s) > abs(a[i] - s) then k := i;
writeln('Индекс элемента: ', k, ' Значение = ', a[k]);
end.</span>
a = int(input('Введите 1-е число: '))
b = int(input('Введите 2-е число: '))
if abs(a-b) == 135:
print('yes')
else:
print('no')
У тебя дана формула =$A$3+$C$3. Значение столбцов и строчек меняться не будет, т.к стоит знак доллар, значит нужно просто 50+40=90
Ответ: 90