Var k, n, i: integer;
sum: real;
begin
readln(n, k);
sum:=16;
for i:=1 to n-1 do
sum:=sum+k/i*3;
writeln(sum);
end.
Ответ: 11,12,13,14,15,16,17
===== PascalABC.NET =====
begin
var x := ReadReal('x =');
if x < 3 then
Println(x / (Sqr(Sqr(x)) + 6))
else
Prinln(-x * x + 3 * x + 9)
end.
1) (X>0) ∨(Y>0) ∨ (Z>0)
2) (X>0)∧(Y≤0)∧(Z≤0) ∨ (Y>0)∧(X≤0)∧(Z≤0) ∨ (Z>0)∧(X≤0)∧(Y≤0)
3) (X>10)∧(Y≤10)∧(Z≤10) ∨ (Y>10)∧(X≤10)∧(Z≤10) ∨
(Z>10)∧(X≤10)∧(Y≤10)
4) (X≠104) ∧ (Y≠104) ∧ (Z≠104)