1010 1001 (это дополнительный код)
Var k,summa:integer;
begin
for k:= 15 to 90 do
if k mod 2 =0 then
summa:= summa + 2*k;
writeln(summa);
end.
Ответ:
240
Объяснение:
Представь себе цепочку из пяти бусинок, пусть их будет 3 цвета: синий, жёлтый и красный.
Пускай первая бусинка будет синего цвета, тогда остальные 4 могут быть красного или жёлтого, чтобы их посчитать нам нужно 2 возвести в 4 степень 2^4=16. (можешь проверить на листочке сам, если интересно)
Если синей будет вторая бусинка или третья ничего не изменится, в оставшихся 4 будет по 16 различных вариантов.
Значит, всего вариантов с синей бусинкой 16*5=80.
С красной и жёлтой бусинкой происходит та же история.
80*3=240
Самое простое решение program znanijatop;
const n = 100;
var
k,i,j:byte;
s1,s2:real;
a:array[1..n,1..n] of real;
begin
writeln('vvedite poryadok matrice');
readln(k);
s1:=0;s2:=0;for i:=1 to k do begin
for j:=1 to k do begin
writeln('vvedite a[',i,',',j,']');
readln(a[i,j]);
end;
end;
for i:=1 to k do begin
for j:=1 to k do begin
if i<j then s1:=s1+a[i,j];
if i>j then s2:=s2+a[i,j];
end;
end;
if s1 > s2 then writeln('nad glavnoy diagonali summa bolshe');
if s1 < s2 then writeln('pod glavnoy diagonali summa bolshe');
if s1 = s2 then writeln('ravni');
end.