Конкретный вариант:
uses crt;
var x:<em>real</em>;
begin
x:=21.17;
writeln((5*x+0.36)/(0.77+sqr(x)):3:3);
<span>end.
</span> Более универсальный:
uses crt;
var x:<em>real</em>;
function y(a:<em>real</em>):<em>real;</em>
begin
writeln(((5*x+0.36)/(0.77+sqr(x))):3:3);
end;
begin
read(x);
y(x);
end.
===== PascalABC.NET =====
begin
foreach var n in Range(100, 999) do
if n mod 81 = 0 then
Print(n)
end.
24^(9) бит=3,3×10^(11) байт
1 терабайт=1×10^(12) байт
24^(9) бит=0,33 терабайт
<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var (a,b,c):=ReadReal3('Введите длины сторон треугольника:');
if (a=b) and (a=c) then Writeln('Треугольник равносторонний')
else Writeln('Треугольник не равносторонний')
end.