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 
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
      sum := sum + zn;
      zn := zn + 0.1; end;

   Write(sum);
END.