1) m:=54; n:=16
m=n? Нет ⇒ m>n? Да ⇒ m:=m-n (54-16=38)
Ответ: m=38
2) Циклический алгоритм
a:=1; b:=0;
b=4? Нет ⇒ b:=b+1 (1); a:=2*a (2);
b=4? Нет ⇒ b:=b+1 (2); a:=2*a (4);
b=4? Нет ⇒ b:=b+1 (3); a:=2*a (8);
b=4? Нет ⇒ b:=b+1 (4); a:=2*a (16);
b=4? Да.
Ответ: а=16; b=4
использовать Чертежник
алг
нач
сместиться на вектор (2,2)
опустить перо
в;в;п;п;п;л;л;н;п;п;л;л;н;п;п;л;л;л
кон
алг л; нач сместиться на вектор (-2,-2); сместиться на вектор (-2,2) кон
алг п; нач сместиться на вектор (2,2); сместиться на вектор (2,-2) кон
алг в; нач сместиться на вектор (2,2); сместиться на вектор (-2,2) кон
алг н; нач сместиться на вектор (-2,-2); сместиться на вектор (2,-2) кон
1) В 16 битной кодировке сообщение = 20*16=320 бит.
2) В 8 битной= 20*8=160.
<span>3) Если перекодирывать из 16 битной в 8 битную т 320-160=160 бит, или =20 байт
Ответ: 160 бит</span>
Program dlksjijh;
var
A: array[1..40] of integer;
i: integer;
begin
randomize;
writeln('исходные данные:');
for i := 1 to 40 do
begin
A[i] := Random(21);
write(A[i], ' ');
end;
writeln;
writeln('преобрезованный массив:');
for i := 1 to 40 do
begin
if A[i] mod 2 = 0 then
A[i] := Round(A[i]/2)
else
A[i] := A[i] * 3;
write(A[i], ' ');
end;
end.
Имена математических операций - с прописной буквы, и, поскольку есть Random(), то самой первой строкой программы должна быть команда randomize, то есть активация генератора случайных чисел.
У меня работает.