нужно исправить ошибку в задаче Паскаль.

[Getman]

Program pr_1;
Uses crt;
Var
x,e:real;
begin
writeln ('введите x,e');
readln (x,e);
sl:=x;
k:=0;
while abs(sl)>=e do
begin
if odd(k) then s:=s-sl
else s :=s+sl;
inc(k);
sl:=sl*x*x/k;
end;

я студент 1 курса и не знаю что это, вы не могли бы сделать в другой версии. Заранее спасибо.
inc(k)
odd(k)
abs(sl)

[Tanzor69]

что значит сделать в другой версии? чем код не устраивает? (и кстати код вставляйте через специальные теги, а то читать сложно)

[Getman]

просто мы это не изучали ещё. этот код он просто как название как я понимаю?

[VIK_aka_TOR]

а можно узнать текст задания?... условие...

[Getman]

картинка вложена

[bonjovi]

inc(k) - k:=k+1

If odd(k) - If k mod 2 <> 0

Ну а abs - это модуль числа, это никак не уберёшь

[Getman]

огромное спасибо. только задача в паскале не работает. пишет что ожидается оператор и указывает на строку end

[bonjovi]

Program pr_1;
Uses crt;
Var
x,e,sl,s:real;
k:integer;
begin
writeln ('Введите x,e');
readln (x,e);
sl:=x;
k:=0;
while abs(sl)>=e do
begin
if k mod 2<>0 then s:=s-sl
else s :=s+sl;
k:= k+1;
sl:=sl*x*x/k;
end;
Writeln(sl)
end.