Значения с символами $ остается
<em>E4=$C$2*D4</em>
<span> Линия
проходит через центр тяжести выборочных данных,
то есть выполняется равенство:
y=b1+sum(bi·xi)</span>
Внимание! Если программа не работает, обновите версию Pascal !
begin
var mas:=ArrRandom(15,0,10); mas.Println;
mas.Select((v,i)-> v =0 ? i*i:v).Println;
end.
Решение в файле, ну а как сравнить (отношением или больше-меньше) это вы сами допишете.
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.