6.
a=10
b=30
a = (30 mod 7) div 2 = 2 div 2 = 1
Ответ: a = 1
7.
в)
8.
y = 5+5*1+5*2+5*3 = 5+5+10+15 = 35
Ответ: 35
9.
143 = 128+8+4+2+1 = 10001111(2)
Var x1,y1,x2,y2,r:real;
begin
readln(x1,y1);
readln(x2,y2);
r:=sqrt(sqr(x2-x1)+sqr(y2-y1));
writeln(r:5:3);
end.
Пример:
1. 1.
2. 2.
<span>1.414</span>
72 клетки. Поле 9 на 9. Не закрашено 9 клеток. Значит 81-9=72
Const
n = 10;
var
a: array[1..n] of integer;
i: integer;
function sum: integer;
var
tmp, prev, cur, s, i: integer;
flg: boolean;
begin
s := 0;
for i := 1 to n do
begin
flg := true;
tmp := a[i];
prev := 9;
cur := 0;
while tmp > 0 do
begin
cur := tmp mod 10;
if cur > prev then
begin
flg := false;
break;
end;
prev := cur;
tmp := tmp div 10;
end;
if flg then inc(s);
end;
sum := s;
end;
begin
writeln('Исходный массив: ');
for i := 1 to n do
begin
a[i] := random(1000);
write(a[i], ' ');
end;
writeln;
writeln('Ответ: ', sum);
end.
В 1 случае объем сообщения равен=8*16 бит=128 бит
во втором случае объем равен=8*8=64 бит
уменьшился объем на 64 бита
<span />