100001₂
52₈ = 101<span>010</span>₂
42₁₆ = 1000010₂
63₁₀ = 111111₂
42₁₆ - большее число
Первая гиря - 1 кг, это достаточно очевидно.
Вторая гиря - 3 кг, с её помощью можно получить следующие веса:
2 кг = 3 кг - 1 кг (на одну чашу ставим 3 кг, на вторую 1 кг плюс товар)
3 кг = 3 кг
4 кг = 3 кг + 1 кг
Дальше нам нужно 9 кг:
5 кг = 9 кг - 3 кг - 1 кг
6 кг = 9 кг - 3 кг
7 кг = 9 кг + 1 кг - 3 кг
... ... ...
13 кг = 9 кг + 3 кг + 1 кг
Последняя гиря - это 27 кг (чтобы в сумме получалось 40 кг).
Ответ: 1, 3, 9, 27.
Строка t равна “действительность”. Найти значение: copy(t, 14, 2)+copy(t, 6, 1)+copy(t, 13, 1)+copy(t, 10, 1); copy(t, 6, 2)+ co
Алекс221
1. стволвид
2.
var
t: string;
begin
t := 'ДЕЙСТВИТЕЛЬНОСТЬ';
WriteLn (Copy (t, 1, 7) + Copy (t, 2, 1));
WriteLn (Copy (t, 4, 1) + Copy (t, 6, 2) + Copy (t, 1, 2) + Copy (t, 8, 4));
WriteLn (Copy (t, 1, 2) + Copy (t, 10, 1) + Copy (t, 13, 1));
end;
Ответом является число 1, ведь самое маленькое кол-во человек это 1
1) Если использовать последний Паскаль АВС, который умеет вычислять степень (Power), то вот вариант программы:
var
n:integer;
s:real; {вообще, он целый, но мой компилятор не пропускает, почему-то считает, что результат вычислений будет real}
begins:=0;
n:=1;
while s<5 do
begin
s:=3*power(n,4)-730*n; {для старого Паскаля напиши так: s:=3*sqr(sqr(n))-730*n}
n:=n+1
end;
writeln(n)
end.
2)
var n,s:real;
begin
s:=0;
n:=1;
while s<=10 do
begin
s:=exp(n)-1000*Ln(n);
n:=n+1
end;
writeln(n)
<span>end.</span>