цикл repeat, Нужно вычислить выражение -0,5+0,7-0,9+...+0.23; Опции

[vladimir11332]

Доброго времени. Уважаемые специалисты.
У меня вот такой вопрос.
Нужно вычислить выражение -0,5+0,7-0,9+...+0.23;
Я написал программу, но не не могу понять правильно или нет. Подскажите

const n=0.23
var s, x:real;
zn:integer;
begin
s:=0.5; x:=0.2;zn:=-1;
repeat
s:=s*zn;
s:=s+x;
x:=x+0.2;
zn:=-zn;
until x>0.23;
writeln ('s= ' ,s:8:3);
end.

Меня еще условие немного настораживает потому что оканчивается 0,23

Добавлено через 10 мин.
Думаю вместо 0,23 там должно быть 2,3. А может это хитрость такая

[vladimir11332]

Большое спасибо, а то смотрел примеры в лекциях и насобирал. Посчитал вручную совсем другой ответ выходил вот и обратился за помощью. 3 дня голову ломал.
А напишите статью дайте ссылку обязательно прочитаю ))