2^36=<span>68719476736.............</span>
Var a:array[1..5,1..7] of integer;
i,j,kolpol,kolotr:integer;
respol,resotr:real;
begin
for j:=1 to 7 do begin
for i:=1 to 5 do begin
a[i,j]:=random(-50,50);
write(a[i,j]:4);
end;
writeln();
end;
for i:=1 to 5 do begin
respol:=0;
resotr:=0;
kolpol:=0;
kolotr:=0;
for j:=1 to 7 do begin
if a[i,j]>0 then begin
respol+=a[i,j];
kolpol+=1;
end
else if a[i,j]<0 then begin
resotr+=a[i,j];
kolotr+=1;
end;
end;
writeln('Среднее значение положительных чисел в ',i,' столбце=', respol/kolpol);
writeln('Среднее значение отрицательных чисел в ',i,' столбце=', resotr/kolotr);
end;
end.
Если Вы хотите вместо логических значений True и False использовать 1 и 0, то можно сделать так:
program pr1;
function _Xor (x, y:byte): byte;
begin
if x+y=1 then
_Xor:=1
else
_Xor:=0;
end;
var x,y: byte;
begin
readln (x, y);
writeln (_Xor(x, y));
end.
Пример:
1 0
1
Вы вводите 2 числа,затем он выведет произведение суммы и разности этих чисел.
N= 8
Q= 600бит
Nc - ?
Решение:
N=2
8= 2 в 3 степени
I= 3 бит/символ
600бит : 3= 200 символов