===== PascalABC.NET =====
begin
var x := ReadReal('x =');
var y := 2 * (x + 3) + Sqr(3 / (1 - 4 * x));
Println(y)
end.
Примечание. При х = 0.25 в знаменателе образуется ноль. В этом случае программа выдаст значение Infinity (бесконечность).
Ответ : день(5+6+15+30) самое наименьшее
В программе нужно заменить в цикле след. строки :
for i:=1 to n do
for j:=i+1 to n do a[i,j]:=0;
заменить на строки
for i:=2 to n do
for j:=1 to i-1 do a[i,j]:=1;
Я надеюсь тебе будет понятно мои каракули