вообщем пример такой:Нажмите для просмотра прикрепленного файла
а мя как всегда не вовремя перемкнуло(решение не лезет в голову хотя проблема пустяковая )

не знаешь как в степень возвести или как модуль числа получить ? В любом учебнике по Паскалю это есть ... Да и на форуме тоже.

Хотя если возводимое число может быть <= 0, то стандартный способ возведения не прокатит.

это меня и смущает...

не знаю как найти x^y/x и кубический корень из y/x

вродь чёт нарешал но всё равно выдаёт ошибку...

del:=y/x;
if x>0 then st1:=Exp(del*Ln(x)) else
Function st1(n: integer)  : Integer;
Begin    st1:=(1 - 2*Byte(Odd(n)));
End;
if del>0 then st2:=Exp(del*Ln(1/3)) else
Function st2(n: Integer): Integer;
Begin    st2:=(1 - 2*Byte(Odd(n)));
End;
rez1:=abs(st1-st2);
end;

а точно функции st1 и st2 типа integer? может real? попробуй, будь что будет...

а в этом чтото есть...эээ хотяч всё равно ошиба

Function st1(n: integer) : real;--- после function

Бррр... Погоди, ты функцию описываешь прямо в теле программы? Функция должна описываться перед основным блоком вообще-то... Причем у тебя st1 и st2 вообще выполняют одно и то же, зачем их две?

акак примерно должно быть?

как нибудь так

function f(n: integer)  : integer;
begin f:=n+1; end;
begin
writeln(f(2));
end.

сори что тута но не могу создать новую тему;условие задачи такое:определить сумму чисел от 3 до 99 кратных 3.подскажите где ошибка:

var
a : integer;
b,s : real;
begin
s:=0; a:=3;
while a<=99 do
begin
b:=(a)mod(3) ;
If b=1 then s:=s+a;
a:=a+1;
end;
writeln(s);
readln;
end.

(Р.S.выводит результат 1616)

If b=0 then s:=s+a;// а не 1