Ответ: 16-8 в десятичной, в двоичной будет 10000 - 1000 = 1000
Проверка: 1000+1000 = 10000
Ответ:
нечем
Объяснение:
вы понимаете слово знак? а символ? ну может быть знак это типо !"№;%: а символы это могут быть знаки со смыслом. если же я не правильно понял то тогда они отличаются только названиями.
Программа:
const m=7; n=8;
var t:array[1..m,1..n] of integer;
i,j:integer; s,max:real;
begin
Randomize;
writeln('Результаты измерений:');
writeln(' 0 3 6 9 12 15 18 21');
writeln(' -------------------------------');
for i:=1 to m do
begin
for j:=1 to n do
begin
t[i,j]:=random(10)-5;
write(t[i,j]:4);
end;
writeln;
end;
max:=-200;
for i:=1 to m do
begin
s:=0;
for j:=1 to n do s:=s+t[i,j];
s:=s/n;
if s>max then max:=s;
end;
writeln('max = ',max:5:1);
end.
Пример:
Результаты измерений:
0 3 6 9 12 15 18 21
-------------------------------
-4 4 2 -4 0 -1 4 1
-5 -2 2 3 4 0 -5 -3
-4 -4 2 0 -3 -1 -1 -4
-5 -3 4 -3 -4 1 -4 3
4 -1 -5 -1 -5 2 1 -1
-1 2 3 -1 -5 3 2 4
1 -5 -5 -1 0 0 1 2
max = 0.9
Program n1;
Uses CRT;
Const n=5; m=7;
Var A: array[1..n,1..n] of integer;
i,j,s,k: integer;
begin
clrscr;
randomize;
For i:=1 to n do
begin
For j:=1 to n do
begin
a[i,j]:=random(100);
write(a[i,j]:4);
s:=s+a[i,j];
k:=k+1;
end;
writeln;
end;
Writeln('srednee arifmeticheskoe =',s/k:4:4);
readln
end.
А) a*a+x*x/(y*y) или sqr(a)+sqr(x)/sqr(y)
б) sqrt(a*a+b*b) или sqrt(sqr(a)+sqr(b))
