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.
<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrGen(ReadInteger('n='),t->Sqrt(t)); a.Println(', ')
end.
<u>Пример</u>
n= 13
0, 1, 1.4142135623731, 1.73205080756888, 2, 2.23606797749979, 2.44948974278318, 2.64575131106459, 2.82842712474619, 3, 3.16227766016838, 3.3166247903554, 3.46410161513775
<u>Замечание:</u> массив индексирован от нуля.
люди , которые заводят животных и воспитывают их,ухаживают, ростят.
2.Код к задаче: «Удаление N-го элемента из списка - Prolog»
1.p([],N,'Error'):-N>0.
2.p([_|Tail],N,'Error'):-N1 is N-1,p(Tail,N1,"Error").
3.p([_|BL],1,BL).
4.p([AL|BL],N,[AL|CL]) :-N>1, N1 is N-1, p(BL,N1,CL).
Удачи, в информатике)