<em>// PascalABC.NET 3.2, сборка 1363 от 17.12.2016</em><em>// Внимание! Если программа не работает, обновите версию!</em>begin
var x:=ReadReal('x=');
var y:=(x*x-7*x+10)/(x*x-8*x+12)+power(x,0.8);
Writeln('y=',y)
end.
Решение смотри во вложении.
var s,i:integer;
begin readln(i); s:=0; repeat s:=i mod 10 + s; i:=i div 10 until i=0; writeln(s); readln end.
Программа написана на Python 3.6
from math import sqrt
x = 0.7
while x <= 0.9:
y = 3 * x * 2**x + sqrt(3 * x) + 12
print('При x =', x, 'y =', round(y, 2))
x += 0.06
<span> x = round(x, 2)
</span>