<h3>PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (a,d,k):=ReadReal3('Введите a, d, k');
for var i:=0 to Trunc((d-a)/k) do
begin
var x:=a+i*k;
var y:=x**3+4*Abs(x);
Writeln(x:30:15,y:30:15)
end
end.
Ответ:
[Как ухаживать за домашними кошками -крупные -покупка -продажа]
Объяснение
[Как ухаживать за домашними кошками -крупные -покупка -продажа]