Кумир, цикл ПОКА Найти сумму чисел...

Question

Кумир, цикл ПОКА
Найти сумму чисел
2+2.1+2.2+2.3=2.4+2.5+2.6+2.7+2.8+2.9+3
Помогите,пожалуйста) Очень срочно

Answer 1

Var x,s:real;
begin
x:=2;
while x<3 do <br>begin
S:=S+x;
x:=x+0.1
end;
writeln (S);
readln
end.

Answer 2

VAR
   sum, zn: Real;
BEGIN
   sum := 0;
   zn := 2;

   While (zn <= 3) do begin</strong>
      sum := sum + zn;
      zn := zn + 0.1; end;

   Write(sum);
END.