1.35
2.var y,x:real;
begin
read(x);
if x<=-1 then
y:=-(1/sqr(x))
else if (x>-1) and (x<=-2) then
y:=sqr(x)
else if x>2 then y:=-4;
print (y);
end.
Cхему думаю составишь сам уже
328₉=3*9²+2*9¹+0*9⁰=3*81+2*9+0*1=243+18+0=261₁₀
Var a,c,f:integer;
d:string;
begin
f:=0;
writeln('введите строку');
readln(d);
a:=pos('е',d);
writeln('первый символ стоит на ',a,' позиции');
for c:=1 to length(d) do begin
if (d[c] = 'е') then f:=c;
end;
writeln('последний символ стоит на ',f,' позиции'); <span>
end.</span>
Program k23;var a, m:integer;begina:=2300;readln(m);a:=a*m;writeln(a div 1000, ' кг ', a-1000*(a div 1000), ' гр');end.