Разделить число на 10, полученную целую часть от деления еще раз разделить на 10 и взять остаток от деления
на Pascal это выглядит так:
x:= 156;
y:=((x div 10) mod 10)
результат: у=5
Var
x: real;
begin
readln(x);
if (x <= 0) then
x := 0;
writeln('y = ', x);
end.
------
Или так:
var
x: real;
begin
readln(x);
writeln('y = ', x > 0 ? x : 0);
end.
Ответ. 2
всего 4 монеты, значит информации нужно получить
бита, одно взвешивание на весах равносильно одному биту, потому что уменьшаем незнание в двое (т.е. какая из двух чаш легче), значит нужно не менее двух взвешиваний.
27, т.к. а>b. тратата мы везем кота в этот раз....
<span>Недавно кто-то задавал похожий вопрос, отвечал в двух словах, как примерно это делается. Если вы не понимаете, что будет происходить ниже, можете сходить посмотреть (
znanija.com/task/15284237 ) или спрашивать в комментариях, а решение вот:
а)
</span><span>0 0 0 1 0 1 0 1
0 0 16 0 4 0 1</span>
<span>Ответ: 00010101 (2) = 21 (10)
б) </span>
<span>1 1 1 1 1 1 1 0
128 64 32 16 8 4 2 0</span>
<span>Ответ: 11111110 (2) = 254 (10)
в)</span>
<span>0 0 1 1 1 1 1 1
0 0 32 16 8 4 2 1
</span>Ответ: 00111111<span>
(2) = 63 (10)
г)</span>
<span>1 0 1 0 1 0 1 0
128 0 32 0 8 0 2 0
</span>Ответ: 10101010
(2) = 170 (10)