У меня вот такой вопрос.
Нужно вычислить выражение -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. А может это хитрость такая