Вот вставь проверь там напишет при каких значениях
var x, L, M,i,i1: integer;
begin
for i:=0 to 1000 do
begin
i1:=i;
L:=0;
M:=0;
while i1 > 0 do
begin
L:=L+1;
if M < i1 then
begin
M:= (i1 mod 10) * 2;
end;
i1:= i1 div 10;
end;
writeln(L);
write(M);
end;
readln;
end.<span>
</span>
<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
type
Собака=class
public
procedure Голос;
begin
Writeln('Гав!')
end;
end;
// пример вызова
begin
var Тузик:=new Собака;
Тузик.Голос
end.
Начало: 1-й - x монет, 2-й - y монет
после 1 партии: 1-й - (x+y/2), 2-й - y/2
после 2 партии: 1-й - (x+y/2)/2, 2-й - y/2+(x+y/2)/2
после 3 партии: 1-й - (x+y/2)/2+(y/2+(x+y/2)/2)/2, 2-й - <span>(y/2+(x+y/2)/2)/2
</span>(x+y/2)/2+(y/2+(x+y/2)/2)/2 = 32, <span>(y/2+(x+y/2)/2)/2 = 13
</span>(x+y/2)/2 = 19, <span>(y/2+(x+y/2)/2)/2 = 13
</span>x+y/2 = 38, <span>y/2+(x+y/2)/2 = 26
</span>x+y/2 = 38, <span>y+(x+y/2) = 52
</span>x+y/2 = 38, y = 14
x = 31
Ответ: у первого пирата до начала игры была 31 монета.
Ты слушаешь музыку и эта информация обрабатывается с помощью органов слуха.
Печатаешь на клавиатуре текст и он обрабатывается, а затем выводится на экран.
Прикоснулся к горячему чайнику, по телу пошёл сигнал в мозг (обработалась информация), что этот предмет слишком горячий, и мозг дал сигнал отдёрнуть руку.
Везде одни и те же правила:
Есть исходная(предварительная) инфа (музыка, текст, чайник) -> Техническое устройство или человек (т.е. кому эта инфа идёт и где она обрабатывается) -> воздействует на объект управления.(т.к. уже идёт реакция на обработанную инфу. Текст выводится на монитор компа, а мозг даёт ответный сигнал убрать руку от горячего чайника.)
Во вложении........................................................................