===== PascalABC.NET =====
- 1 -
begin
foreach var x in Seq(2.1, 3.3, 4.125) do
Writeln(x:5:3, Sqrt(Abs(Sqr(Sin(x)) - Cos(x))) / (x - 1):13:9)
end.
- 2 -
begin
Writeln('Вычисление объема цилиндра.');
Writeln('Введите исходные данные:');
var r := ReadReal('Радиус основания (см) ---');
var h := ReadReal('Высота цилиндра (см) ---');
Writeln('Объем цилиндра: ', Pi * r * r * h:0:2, ' куб.см.')
end.
-78 = <span>-1001110
Ответ: четыре единицы
</span>
<em>6)(7*sqr(m)*sqr(m)+3*sqrt(4*x+2*sqr(x)))/abs(2*m+x)</em>
<em>7)12/sqrt(b)+sqrt(b+sqr(c)*c)+1
_______________________________________________</em>
Пи - константа и (примерно) равна 3,14, а для возведения в квадрат в паскале есть крутая штука - sqr(R); . во второй
var x,y:real;
begin
writeln('введите число');
read(x);
y:= 1/(x+1);
write(x);
<span>end.</span>