Ответ:
b=1
Объяснение:
Используем команды по порядку
12111
1: 17-b
2: (17-b)/2
3-5: (17-b)/2-b-b-b
В итоге получили 5,значит:
(17-b)/2-b-b-b=5 теперь просто найдем b
8,5-0,5b-b-b-b=5
3,5-3,5b=0
3,5b=3,5⇒b=1
Ответ:b=1
Sub pp()n1 = 1k1 = 20n2 = 1DoCells(n2, 2) = Cells(n1, 1)n2 = n2 + 1Cells(n2, 2) = Cells(k1, 1)n2 = n2 + 1k1 = k1 - 1n1 = n1 + 1Loop Until n1 > 10End Sub
Задание 3.7
//Pascal
var i,n,k:integer;
begin
n:=24;
k:=1;
//количество амеб через
//цикл for
for i:=1 to n div 3 do begin
k:=k*2;
writeln('Время :',i*3,' Амеб :',k);
end;
writeln;
//количество амеб через
//цикл while
i:=0;
k:=1;
while i<n do begin
i:=i+3;
k:=k*2;
writeln('Время :',i,' Амеб :',k);
end;
writeln;
//количество амеб через
//цикл Repeat
i:=0;
k:=1;
repeat
i:=i+3;
k:=k*2;
writeln('Время :',i,' Амеб :',k);
until i=n
end.
Задание 3.8
var
k,b,t:integer;
begin
for b:=1 to 10 do
for k:=1 to 20 do
for t:=1 to 200 do
if (b*10+k*5+t*0.5=100)and(b+k+t=100)then writeln('Быков: ',b,' Коров:',k,' Телят:',t);
end.