Оператор цикла с постусловием (цикл REPEAT)

[0001]

Написать программу для вычисления заданного выражения и вывода на экран полученного значения, используя заданный циклический оператор.
0,4+0,8+1,2...4.
const=2;
var s,x:integer;
begin s:=0;x:=0.4;
repeat
s:=s+x;
x:=x+0,4;
until x>4;
writeln(‘S = ’, s);
end.
а как изменится в таком виде? 0,4-0,8+1,2....+4 Спасибо

[Базиля]

в коде который у тебя добавлен в пост, ошибки:

var s,x:real;
begin
x:=0.4;
repeat
s:=s+x;
x:=x+0.4;
until x>4;
writeln('S =', s:0:1);
end.

[eoln]

Сообщение от Базиля

var s,x:real;
begin
x:=0.4;
repeat
s:=s*(-1)+x;
x:=x+0.4;
until x>4;
writeln('S =', s);
end.

Знак меняться должен у слагаемого, а не у суммы.

var s,x,k:real;
begin
x:=0.4;k:=1;
repeat
s:=s+k*x;
k:=-k;
x:=x+0.4;
until x>4;
writeln('S =', s:0:1);     readln
end.

[Базиля]

Знак меняться должен у слагаемого, а не у суммы.

да, извиняюсь.