1) program abc;
var x, y: integer;
begin
read(x);
y:=(x+5)/(x-3)
write(y);
CLSINPUT NDIM A(N), B(N)FOR i = 1 TO N A(i) = INT(RND * 100)NEXT imin = A(1)FOR i = 2 TO N IF A(i) < min THEN min = A(i)NEXT iFOR i = 1 TO N A(i) = min * A(i)NEXT iFOR i = 1 TO N B(i) = INT(RND * 100)NEXT imin = B(1)FOR i = 2 TO N IF B(i) < min THEN min = B(i)NEXT iFOR i = 1 TO N B(i) = min * B(i)NEXT iFOR i = 1 TO N PRINT A(i);NEXT iPRINTFOR i = 1 TO N PRINT B(i);NEXT i
Const
x=0.4;
y=-7.3;
var
s:real;
begin
s:=1+3.17*x*x/y+0.009*Sqrt(Exp((x*y+Exp(x))*Ln(x-y)));
Writeln(s)
end.
<u>Результат</u>
0.932615675312061
Блок-схема (уж не знаю, зачем она нужна) - во вложении.
Var a:integer;
d:string;
f:char;
begin
writeln('введите сторку');
readln(d);
for a:=1 to length(d) do begin
f:=d[a];
write(f);
write(' ');
end;
<span>end.</span>