<h2>Задание 1</h2>
a = 2, b = 4
a = 2 · a + 3 · b = 2 · 2 + 3 · 4 = 4 + 12 = 16
b = a / 2 · b = 16 / 2 · 4 = 8 · 4 = 32
<h3>Ответ</h3>
32
<h2>Задание 2</h2>
v = 4, n = 13
v = n - v · 3 = 13 - 4 · 3 = 13 - 12 = 1
n = v · 14 - n = 1 · 14 - 13 = 14 - 13 = 1
<h3>Ответ</h3>
1
Для хранения одного из 32 символов требуется log(2)32 = 5 бит (2^5 = 32).
Объем переданного сообщения = 20*5*60 = 6000 байт = 6000*8 бит.
Количество переданных символов = 6000*8 / 5 = 9600
Program n_1;
var x, n, s: integer;
begin
x:=-1;
s:=0;
read(x);
if x=0 then writeln('0 0')
else begin
n:=0;
while x<>0 do begin
n:=n+1;
if(x>0) and (x<=22) and (x mod 2 = 0) then s:=s+x;
read(x);
end;
writeln(n, ' ', s);
end
end.
Var
a,b,p,i: integer;
begin
write ('Введите 2 числа: ');
readln (a,b);
p:=1;
for i:=a to b do
if (i*6) mod 10 =2
then p:=p*i;
writeln (p);
end.
--------------Результат---------------
Введите 2 числа: 1 10
14