Конкретный вариант:
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.
8. Совокупность мировых систем телекоммуникаций и циркулирующей в них информации
А) киберпространство Б) Web - сервер
B) Web – сайт Г) Web – браузер
График - это линия ............
//PascalABC.NET версия 3.3.1590 от 03.12.2017
//Если программа не запускается, то обновите версию
var
A, B: integer;
begin
readln(A, B);
// Assert((A > 0) and (A < B), 'не верные параметры'); //проверка на дурака если надо
while A <= B do
begin
writeln('Квадрат числа ', A, ' = ', A * A);
A := A + 1;
end;
end.