Можно алгоритм как приготовить бутерброд и т.д.
Название предмета: книжка.
Какую информацию несёт: она несёт много информации. Во-первых, это физическое тело, которое имеет прямоугольную форму, созданная из жёсткого материала. Запаха книга не имеет, звука не издает.
Эту информацию мне помогли определить органы чувств: зрения, осязания, слуха, обоняния.
Var
a,b,c,k:integer;
begin
Read(a,b,c);
k:=1;
repeat
b:=2*b;
a:=a-b div 2;
if a<=0 then Writeln('Черт разорен')
else
begin
a:=a+c;
b:=b-c;
if b<=0 then Writeln('Крестьянин разорен')
else k:=k+1
end
until (a<=0) or (b<=0);
Writeln(k)
end.
Какое значение будет принимать переменная Х, после выполнения фрагмента программы: 17